CR -114672 

flV#/LA6L£ 7V Ttik /?<!J0UC 



V 


USER'S MANUAL 
FOR THE TRW 
GASPIPE 2 PROGRAM 


to o 
^ O to 

to sa o 
<+ H sa 

<D tSJ ^ 
B H 
in S23 fexi 
m ts 
o sa ^ 
h a t-i 

o ^ 

c 5 ** to 
O M 


A VAPOR-GAS FRONT ANALYSIS PROGRAM FOR 
HEAT PIPES CONTAINING NON-CONDENSIBLE GAS 

OCT 1973 

TRW DOCUMENT NO. 131 1 1-6054- R 0-00 
PREPARED BY 

D. K. EDWARDS 
G. L. FLEISCHMAN 
B. D. MARCUS 

CONTRACT NO. NAS 2-5503 


PREPARED FOR 

NASA - AMES RESEARCH CENTER 
MOFFET FIELD, CALIFORNIA 93405 


Jo ti 
Ni n 

f O 

rp a O 
o a 

TJ SJ 
| CO tss 

- a: m 

O cd Hr} 

a 

^ ^ td 
CD 

0 a sc 
in tea tig 
tO JSs* 

OWH 

lo s: 
o m 
e to 

NJ 

o 

os 


w 

N 

u> 

Uu 


to d 

UJ 2# 

"4 O 
Ln H* 

to 


H3 
td 

SB 

to 

Q 

2^ 0 

co n 
nd to 
H 0 
-A 
fcU — * 

to cn 

*t 3 to 
id~ 
o 
Q 

td C 
»» CO 
rs td 

* * id 

to 

T3 
<5 fie* 

Sr* 

cs 

O & I 

id f* 

0 I 

a ns 
fc* o 
co !d 

t~3 

sc 

fcf 


\ 


5« 

0 

-a 

Ui 

CTv 

<* I 


MATERIALS SCIENCE STAFF 


r/?nr 

SYSTEMS GROUP 



1 311.1 -6054-R0-00 


FORWARD 


This manual is a revision of an Aoril 1971 
reDort "User's Manual for the TRW Gasoine Program". 
The Gaspipe 2 Program includes a number of changes 
in logic and operating options which provide it 
with expanded capability. The program revision 
was performed under NASA Contract No. NAS2-5503, 
"Design, Fabrication, and Testing of a Variable 
Conductance Constant Temperature Heat Pipe. 

The contract is administered by Ames Research 
Center, Moffett Field, California, with Mr. J. P. 
Kirkpatrick serving as Technical Monitor. 

The program has been conducted by TRW Systems 
Group of TRW, Inc., Redondo Beach, California, 
with Dr. Bruce D. Marcus serving as Program 
Manager and Principal Investigator. Major 
contributors to the program were Mr. G. L. 
Fleischman and Prof. D. K. Edwards. 
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1.0 INTRODUCTION 

This report describes a digital computer program useful in the 
design and analysis of heat pipes which contain non-condensible gases; 
either for temperature control or to aid in start-up from the frozen 
state. Because the program includes the effects of axial conduction 
and mass diffusion on the performance of such heat pipes, it represents 
a significant advance in steady-state design technology over the "flat- 
front" theory previously found in the literature [1» 2]. It allows one 
to: 

• Calculate the wall temperature profile along a gas- 
loaded heat pipe. 

• Calculate the amount of gas loading necessary to 
obtain a desired evaporator temperature at a 
desired heat load. 

• Calculate the heat load versus the evaporator 
temperature for a fixed amount of gas in the pipe. 

• Calculate the heat and mass transfer along the 
pipe, including the vapor-gas front region. 

• Calculate the heat leak when the condenser is 
filled wi th gas. 

• Calculate whether or not freezing occurs in the 
condenser and, if so, at what rate. 

• Determine the information required to size the gas 
reservoir of gas- control led heat pipes. 


The program contains numerous reservoir options which allow it to be 
used for hot or cold reservoir passive control as well as heated 
reservoir active control heat pipes. Additional input options permit 
its use for parametric studies and off-design performance predictions 
as well as heat pipe design. 

Provision is also made in the nrogram for two condenser sections 
and an adiabatic, section. 
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The analysis and formulation of the equations used in the program are 
presented in Section 2. Basically, a one-dimensional steady state 
analysis has been used and the equations written assuming small wick 
resistance and negligible vapor pressure drop along the pipe. The 
analytical model used is shown in Figs. 1-1 and 1-2. However, the 
program is not limited to the geometry shown. Non-circular and non- 
axi symmetric configurations can also be studied by calculating 
equivalent diameters, thicknesses, etc. consistent with the formulation 
of the equations. 

The numerical technique used to solve the equations is also discussed 
in Section 2. It involves a fourth-order Runge-Kutta routine to solve 
two simultaneous equations for (1) a parameter fixing the mole fraction 
of the non-condensible gas, and (2) the condensible vapor velocity. 

Section 3 discusses the potential uses of the program for research, 
heat pipe design and performance predictions. The program input 
requirements are described in Section 4, and the output discussed in 
Section 5. 

Flow diagrams, program listings and sample problems are presented in 
the appendices. 

This manual assumes that the user has a prior understanding of the 
principles involved in gas-loaded heat pipes. References [2- 4] 
can aid in this respect. 


1-2 









13111-6054-R0-00 


2.0 ANALYSIS 

2.1 Formulation 

The condensing section of the pipe is assumed to reject heat by 
radiation and convection from a fin of perimeter P with an effectiveness 
n as shown in Figure 1-2. The net heat loss from a length of condenser 
dz is thus taken to be 

d Q = [ £oT w 4 + h ( T w ' V " q abs] nPdz (2_1) 

where e is total hemispherical emittance, o the Stefan-Boltzman constant, 
T w the wall temperature, h the convective heat transfer coefficient, if 
any, T^ the external fluid temperature, and q^ is the power absorbed 
per unit area from the surrounds, <*H in the case of irradiation H onto 
the condenser surface of absorptance a. For simplicity all parameters 
are taken to be constants, but a step change is allowed between sections 
of condenser. 


In the usual heat pipe application the difference between the wick-vapor 
interface temperature T. and the condenser wall temperature T w is small 
compared to absolute temperature level. For this reason Eq. (2-1) is 
written in a linearized form 


where 


and 


dQ = Sdz 

( T w - V 

(2-2) 

S(z) - [ 

4eoT^. 3 + h] nP 

(2-3) 

T c (z) - 

3eoT i 4 + q abs + hT f 

(2-4) 

4caT- 3 + h 


We adopt the unusual sign convention that the power Q is measured in 
the negative z direction. Then Fourier's law is written without the 
usual negative sign. Heat flows into an element of pipe dz long at 
z+dz and out at z by axial conduction. Heat also flows across the 
wick by conduction at the rate 
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2ik dz 

— jnm <VV * Kdz <W (2 - 5) 

*-DT 

where k g is the equivalent thermal conductivity of the liquid-filled 
wick, D. the inside diameter of the wick, and <s the wick thickness. 

Eq. (2-5) defines K. The heat balance on an element of condenser is 
then 

d 2 T 

C TT + K <V T w> - S 'V T c> - 0 < 2 ' 6 > 

□ z 

where C is the axial conductivity-area product for the condenser 
cross section, 

C = !i k n A c’n (2 - 7) 

In Eq. (2-7) k n is the effective axial conductivity, allowing for slots 
or other anisotropies, and A the cross-sectional area of the nth 

L- jil 

element in the pipe. These elements include the pipe wall, the wick 
and the fin wall, as shown in Fig. 1-2. When an artery is present, even 
if it is not in intimate thermal contact with the condenser wall, its 
axial conductance should also be included in Eq. (2-7), because the 
temperature gradient in it tends to follow dT^/dz which in turn tends 
to follow dT ,/dz, when K is large compared to S, (See Sec. 4.4). 

The wick interface temperature T^ is the saturation temperature for the 
partial pressure of the vapor above the interface, since the net 
condensation rate is far from the absolute rate of condensation. Other 
simplifying assumptions introduced, which are reasonable for most 
applications, are negligible vapor side pressure loss and a simple 
vapor pressure law derived from the Clausius-Clapeyron relation. The 
mole fraction of the non-condensible at the interface x. and the 
interface temperature T.. are then related in the following way 
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(2-8a) 
( 2 - 8b ) 


Conservation of non-condensible gas requires that the diffusion plus 
convection in the tube sum to zero [5], 

dx 

-<*Jr -cVx^ = 0 (2-9) 

where c is the molar concentration the diffusion coefficient for 
the non-condensible diffusing in the vapor, x g the spatial or area- 
weighted average mole fraction, V the mole average velocity, and x^ 
the bulk {area-veloci ty weighted) average. At least in the region 
of the condenser which is gas-controlled, the radial velocity rates 
will be sufficiently low so that the bulk, spatial, and wall values 
of mole fraction of non-condensible will be nearly the same. This 
assumption is made for the entire condenser so that the subscripts 
i, s, and b on x will be dropped in what follows. 

To obtain an equation having the grouping m = cVA c M, the condensible 
flow rate, Eq. (2-9) is multiplied by A C M, where M is the molecular 
weight of the condensible working fluid. In addition, the dependent 
variable is transformed from mole fraction x to $ by introducing 

* = In \ , x = e'* (2-10) 

A 

Equation (2-9) then becomes 

m = A c Mo^| (2-11) 


<1 = 1 - *xe [-V R V<V T 1 - ’>] 


T. - 

l 


ev 


ev 


, , !Liv £ n i - ■ Tev «- i 


fg 
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Conservation of mass shows that increase in mass flow rate with distance 
from the end of the condenser is equal to the condensation rate which in 
turn is equal to the product of wick conductance and temperature 
difference across the wick divided by the latent heat of vaporization or 
sublimation. 

a! = i« T r T w>/ h fg (2 ' 12) 

Equations (2-6, 2-11 and 2-12) form a set of three simultaneous 
differential equations in three unknowns: T , <{> , and m. The temperature 

T.. is related to <(» through the highly non-linear relations, Eqs. (2-10) 
and (2-8). The coefficient S defined by Eq. (2-3) is also nonlinear. 

An explicit energy equation for the liquid or vapor is not written, 
because subcooling of liquid in the wick and superheating of the vapor 
in the pipe are not considered to be key physical phenomena and are 
neglected in the present treatment. Equations (2-12) and (2-6) will 
give an entirely correct energy balance when and are identical, 

the wick resistance small, and no freezing occurs. 

A boundary condition on (2-6), (2-11) and (2-12) is taken to be 

m = 0 at z = 0 (2-13) 

In addition, either one of two conditions may be prescribed: a total 

heat rate rejected 

. /'L 

Q =7 $(T W -T c )dz ( 2 — 1 4a ) 

0 

or a total number of moles of non-condensible present 

a c/ L [p i (T 1 (z))/R u T i ] dz (2-14b) 

0 

In computing^ a more accurate vapor pressure law than Eq. (2-8) must 
be used. An exponential of a polynomial in the reciprocal of T. is 
used. 
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Strictly speaking, since Eq. (2-6) is second order, two more conditions 
must be specified, such as a zero CdT w /dz at z = 0 and z = L. However, 
an approximation is made that the first and second derivatives of T^ 
with respect to z are equal to those of T. . As is shown in Section 2.2, 
this approximation reduces the set of equations to two first order ones 
so that Eqs . (2-13) and (2-14) are sufficient. The condition on CdT w /dz 
is met at z = 0, and at z = L it is met in practical effect when the 
evaporator is purged of gas. The approximation regarding the derivatives 
of T w and T.. is, of course, exact when the wick resistance is zero. 

A review of the features of the analysis and assumptions made are as 
follows : 

1. Radiation and convection from a finned pipe are considered. 
Absorbed radiation from the surrounds is included. 

Provision for a step change in condenser properties and 
ambient conditions is made. 

2. The condenser wall temperature T w is assumed close to the 
wick interface temperature T^. The first and second 
derivatives of T w and T. with respect to z are assumed 
equal, respectively. In essence high wick conductance 

is assumed. 

3. Axial conduction of heat in the pipe wall and fin and 
one-dimensional axial diffusion of the condensible 
species, which carries latent heat, are accounted for. 

4. Vapor pressure drop in the pipe is neglected. In 
calculating the shape of the wall temperature and wick 
temperature distributions, an approximate vapor pressure 
law derived from Clausius-Clapeyron is used. But in 
calculating the pressure in the pipe and the amount of 
non-condensible present a more accurate expression is 
used. 

5. The condition of zero wall temperature gradient is met 
at z = 0. Either the total number of moles of non- 
condensible present in the pipe or the total heat 
rejected by the pipe is specified. 
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2.2 Dimensionless Governing Equations 

The mass flow rate, mass diffusivity, temperatures, and other 
parameters were made dimensionless so that orders of magnitudes could be 
assessed and for convenient numerical solution. The dimensionless quanti- 
ties are 


& 


* 

z 

= 

z/D 

e 

* 

V 

= 

^fg^nominal 

Is* 

s 

M( c e /y ev /0e)A c hf a /Q 

★ 

T. 

1 

= 

V T ev 

★ 

T w 

= 

V T ev 

* 

T o 

= 

V T ev 

* 

T c 


V T ev 

* a: 

1— 

— 

W T ev 

* 

<*e 

- 

f 

* 

s 

= 

* t 
F (4eoT. + H ) 

* 

F 

= 

nPD e aT ev^nominal 

* 

H 

= 

h/oT ev 

* 

C 

= 

CT ev/ D e^nominal 


where T gv is the evaporator temperature which sets the total pressure in 
the system, and D e is an equivalent diameter allowing for the presence of 
arteries within the pipe, 

D e = (4 A c /tt) 1/2 , 

where is the cross sectional area available for vapor flow. An exponent 
E is an empirical factor to account for the temperature variation of the, 
mass diffusivity defined by 
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*** S^v<V T e/ 

Eqs. (2-6), (2-11), (2-12), and (2-8) written in dimensionless form become 


dz 


(2-16) 


dp_ _ _V 

ic it *r 

dz '0-7. L 


(2-17) 


dV 


★ , * 


dz 


= K (T. - Tj 


i w' 


(2-18) 


, -<p 0 

1 - e v = e 


-T*(l/T*-1) 


(2-19) 


Under approximation 2 Eq. (2-16) is approximated as 


* 

c 


2 * 

^ ^ ■ * * * * * ★ . 
-4* K <W - S <V T C> ■ 0 

dz 


(2-16a) 


The simplifying feature of this approximation is that the second derivative 
in Eq. (2- 16a) can now be eliminated. Eq. (2-19) is differentiated with 

ic it 

respect to z , and Eq. (2-17) is used to eliminate dcj>/dz . The result 
* 

multiplied by C is 


* 

C 



* 

c 


* 2 - 
- 4 , T. 
e * i 


1-e'^Tj 


* 

V 


( 2 - 21 ) 
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* \ 

Eq. (2-21) is differentiated again with respect to z , Eq. (2-17) is 

■jdf 

used again to eliminate d^/dz , and Eq. (2-21) itself is used to eliminate 


? * 

a c t * 

r* i , dV ... 

c —*2' $ 1 * ' *1 *2 *3 

dz ^ 1 dz ‘ 4 

( 2 - 22 ) 

where the functions $-j , t> 2 > $3 are 


. t *2-E 

^U) = c e l * 

1 (i- e -+)*rr 0 

(2-23) 

* 2 U) = 1 - ( 2 -E)(T?/TQ)e"'^ 

(2-24) 

* 3 (< 0 ,V*) = V* 2 / (l-e“*)^*T* E 

(2-25) 

Equation (2-16a) together with Eqs. (2-18) and (2-22) 

now can be written 

sr-v*i*4 

(2-26) 


where 


* Q 0 (<t>Mo4HoU.V ) 

> = TTT7W 


(2-27) 
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The program accounts for a step change in axial conduction between sections 
1 and 2 of the condenser. Fig. 1-1, by assuming continuity in the mole 
fraction, x and Because the analysis is one dimensional, this assump- 
tion leads to a step change in the vapor velocity, V, when the front forms 
across the discontinuity. Thus, for a discontinuity in condenser parameters, 
the mole average velocity, V, is calculated as follows: 


V 


* 

2 



★ 

where C 
V* 


* 



* 


dz 


is given by Eq. 


( 2 - 21 ). 


(2-28) 


Eqs . (2-17) and (2-26) together with (2-19) and the definitions of ^ in 
Eqs . (2-23, 2-24, 2-25 and 2-27) form a set of two simultaneous nonlinear 
first order ordinary differential equations which can be numerically 
solved by, say, a fourth-order Runge-Kutta routine. The initial condi- 
tions are V = 0 and <j> = <j>q at z = 0. Values of and Q for a length 
of pipe L can be obtained versus 4 >q for a given set of parameters and an 
evaporator temperature T gv . An iterative routine can be used to find <j>q 
for a prescribed value of either m or Q. 


2.3 Numerical Solution 

Section 2.2 shows how Eqs. (2-6), (2-11) and (2-12) are reduced by 
virtue of assumption 2 (high wick conductance) to Eqs. (2-17) and (2-26), 
a set of two simultaneous first order differential equations in $ and V 
(a dimensionless velocity or mass flow rate). 

In the numerical solution of these equations, an initial value of T^ 
slightly in excess of the sink temperature is used to fix <f>(0), and a 
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fourth order Runge-Kutta routine is used to solve for ^(z) and V (z). Either 
the amount of gas in the pipe or the total heat rejection is then compared 
with the input value. Depending on the sign of the deviation, the program 
then either (1) operates in the "long mode" and slides the front up the pipe 
a certain distance or (2) operates in the "short mode" and increases 
a prescribed amount, and the integration is repeated. This iteration scheme 
is repeated until the calculated value of ffl or Q (depending on the option 
used) agrees within the numerical integration accuracy with the specified 
val ue. 
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3.0 PROGRAM APPLICATION 

The program has been found useful in the following areas: 

• Research 

• Design 

• Performance prediction 

As a research tool it can be used to study the nature of the vapor-gas 
interface in gas-loaded heat pipes [Ref. 4]. Using the program for para- 
metric analysis, one can study the relative effects of various boundary 
conditions, fluid properties, material properties, operating tempera- 
tures, etc., on heat and mass transfer. Useful program outputs for 
purposes of comparison are the temperature, heat transfer and mass trans- 
fer profiles, and the diffusion freezeout rates. 

Although the computer program is not a design program, per se, it can be 
extremely useful in this respect. By running the program for minimum 
and maximum design conditions (evaporator temperature, power and sink 
conditions) one establishes the variation in condenser gas inventory and 
uses this information to size the gas reservoir. Also, through variation 
of design parameters, one can optimize the condenser and radiator design 
for the desired power and evaporator temperature control range. 

Given a particular heat pipe configuration, the program can be used to 
predict performance at various operating conditions, i.e., run a perform- 
ance map of Q versus T 0V for a fixed set of parameters. This is partic- 
ularly useful in studying heat pipe performance under off-design 
conditions. 

3.1 Minimum Power and Freezeout Rates 

It is possible to obtain the heat leakage when the gas completely 
blocks the condenser by simply reading the value of QSUM at the beginning 
of an adiabatic section. This heat transfer represents, for example, the 
heat leak associated with a variable conductance heat pipe in the "full- 
off" position. Each component of heat transfer can be calculated separately 
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by multiplying the mass flow at a point (for example, TI = 0.986) by the 
latent heat of vaporization of the working fluid and subtracting from 
QFLOW. In the example given in Appendix C the total heat transfer across 
the front is 2.01 Btu/hr, with 0.37 Btu/hr due to diffusion and 1.64 Btu/hr 
due to conduction. 

If the temperature of the gas-blocked portion of the condenser falls below 
the freezing point of the working fluid, then vapor which diffuses through 
the gas and freezes on the walls does not return to the evaporator. Given 
sufficient time, this will deplete the evaporator of fluid and result in 
heat pipe failure. The rate of fluid loss (diffusion freezeout rate) is 
given by the mass flow past the point at which the wick falls to the 
freezing point of the fluid. 

3.2 Design 

For design applications one most commonly uses the heat input option 
(MODEQM = 0) and prescribes the required heat input, Q. An example of how 
the program might be used to size the reservoir of gas-controlled heat pipes 
is outlined below. 

For a given condenser/fin geometry the following conditions determine the 
amount of gas in the pipe for the "full-on" and "full -off" cases. 

(1) Condenser Full-on (Maximum Power): 

Heat Input 

Evaporator Temperature 
Sink Conditions 

(2) Condenser Full -Off (Minimum Power): 

Heat Input 

Evaporator Temperature 
Sink Conditions 


Note that if the condenser were truly full-on then there would be no gas 
in the pipe. In reality, however, it is not possible to achieve this con- 
dition in a gas loaded pipe because of diffusion, nor is it desirable from 
a control point of view--e$pecially in passive systems. Similarly, there 
is always a minimum power (heat leak) in the full-off position. 
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A run is made for each of these two cases with the reservoir volume set 
equal to zero ( VRES = 0) to yield the number of moles of non-condensible 
gas,^W and^ . , in the pipe. These are the final values of MPIPE 

printed at z = L-| + l_ 2 + |_ 3 in each case. Summing the total number of moles 
constant for a closed system— yields two simultaneous equations, which may 
be solved for the required reservoir volume and gas inventory: 

= Vr ^RJ R ^max + %i ax 

. .* . 

// l v Rl yJmin min 


where P gR is the partial pressure of non-condensible gas in the reservoir, 
which may be found by reading the vapor pressure curve at the evaporator 


and reservoir temperatures (P 


gR ^ev 


^Re- 


solving for the reservoir volume: 


V R 


r (#? . 4n ) 

u v min i < mx / 

ft)„7 ft) 


mi n 


(3-2) 


This equation may be expressed in terms of the computer output variables 
as follows: 


where 



T ev = evaporator temperature, °R 

P ev = vapor pressure corresponding to evaporator 
temperature, psf 

x R = mole fraction of non-condensible gas in the 

control reservoir, (P n /P ) = XSR 

gR ev 

3-3 
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CEV and TEV are direct outputs of the program, but some discretion must 
be used in defining the reservoir properties, x R and T R . Although the 
reservoir volume was set equal to zero, much information about the 
reservoir properties may be obtained from the output. The temperature at 
the end of the condenser (z=0) where the reservoir feedtuhe is attached, 
for instance, defines the reservoir temperature and the mole fraction in 
certain cases. Ref. [1]. The temperature at the end of the pipe depends on 
the length and shape of the front; and the reservoir properties are usually 
quite sensitive to this temperature. These considerations are summarized 
in Table 3-1 for the usual applications. 

Table 3-1 

Gas Reservoir Characteristics (Design) 


Type of 

Type of 

T R 

X R 

Control 

Reservoir 


— 

Passive 

Non-Wicked (Hot) 

TEV* XS 

O 

II 

r-4 

Active 

Wicked (Heated) 

Independent Variables 
external to program). 

(de termined 

Passive 

Wicked (Insulated) 

TWICK @ 1=0 XS 

@ 1=0 


♦Assuming the reservoir temperature is coupled to the evaporator temperatur 
♦♦Assuming the reservoir well coupled, thermal ly , to the end of the condenser 
and insulated from the surrounds. 

It must be emphasized that the preceding is not a fixed design procedure, 
and the approach may be altered to accommodate other possibilities, such 
as variable volume reservoirs, or passive wicked reservoirs which are 
thermally de-coupled from the condenser. 

3.3 Performance Prediction 

For a given application, the amount of inert gas in the pipe is a 
known quantity. Thus, in order to predict the performance at various 
design or off-design conditions, the amount of gas is prescribed and MODEQM 
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is set equal to one. Note that under this option the gas inventory may be 
specified in either of two ways: 

(1) ZGAS - the length of condenser filled with gas if a sharp 

front is assumed (flat-front theory). 

(2) AGAS - the amount of gas in lb-moles, % 

The former might be used in parametric analyses to establish similar vapor- 
gas interface locations for varying conditions without tedious calculation 
of appropriate molar inventories. It might also be used for specifying 
the amount of gas in a heat pipe to aid start-up from the frozen state. 

For example, one might specify that the entire condenser be gas-blocked at 
an evaporator temperature a few degrees above the freezing point of the 
working fluid. 

But, for performance estimation purposes, the AGAS option is used and the 
amount of gas is put in directly, in lb-moles. If there is a separate 
reservoir volume, it is necessary to enter the appropriate control integer 
(NRES) and reservoir temperature (TRES) in the input. Table 3- 1 1 is a 
summary of the appropriate input values for typical applications. It 
should be pointed out that the program does not account for heat leakage 
from an actively heated reservoir into the condenser. 


Again, the preceding is not a fixed procedure, but may be modified for other 
possibilities. The heat load might be more accurately known than the molar 
inventory, for example, in a certain performance test. In this case one 
would use the heat input option (MODEQM = 0) rather than specifying the 
amount of gas. Table 3-II is applicable in either case. 
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Table 3-II 


Gas Reservoir Characteristics (Performance) 


Type of 
Control 

Type of 
Reservoi r 

NRES 

TRES 

Passive 

Non-wicked (Hot) 

0 

★ 

TEV 

Active 

Wicked (Heated) 

1 

Desired Temp 
** 

Passive 

Wicked (Insulated) 

2 

Arbitrary 


*Assuming the reservoir temperature coupled to the evaporator tempera ture. 
**The program assumes that the reservoir is insulated and takes the 
temperature at the end of the condenser as the reservoir temperature in 
this case. Thus, the input value is arbitrary (non-zero). 


3.4 Adiabatic Section 

In many heat nine anplications an unfinned, insulated section 
exists between the evanorator and condenser. The heat loss from this 
section may be negligible. It can then be treated as adiabatic. The 
computer program has the capability of dealing with such a section in 
addition to two condenser sections farther from the evaporator. 

If an "adiabatic section" is not truly adiabatic but loses heat 
so that it is not satisfactory to model it so, the program can still 
be used, but care must be exercised. The way to treat a not-ouite 
adiabatic section with the existing program is to treat that section as a 
condenser. Section 2. There then remains only one other condenser Section 1 
which must model the active condenser of the actual nine. The program 
adiabatic section capability is then not made use of, and a value of 
XLONGA = 0.0 is accordingly input. 
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4.0 INPUT DESCRIPTION 

An input form for the program is reproduced in Fig. 4-1. Each 
line corresponds to a data card, and the input format is given in the 
second column. Also shown are the input parameters which cannot be set 
equal to zero without causing numerical difficulties in operation of the 
program. The following defines each input variable and gives some of the 
restrictions and limitations imposed on these variables. 


Cards 1 & 2 (72H) 

These are title cards which are used to identify the run. Any desired 
information, such as project, name, date, etc. may be typed on these 
cards. The only restriction is that column one is used for carriage 
control. Thus, a "1" is usually punched in the first column of card one 
to start printout at the top of the page, and the first column of card 
two is left blank. 


4.1 Fluid Characteristics 
Card 3 (3F 12.5) 

All, Bll, Cl 1 : vapor pressure parameters in the least squares fit. 


In P 


All - 


Bll Cll 


where the pressure, P, is in psia and the temperature, T, is in 
°R. See Table 4-1. 


Card 4 (5 F 12.5) 

XMC: molecular weight of the condensible. See Table 4-1. 

DIF: mass diffusivity for the vapor-gas pair at one atmosphere 

and 460°R (ft 2 /hr). See Table 4-1. 
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FIGURE 4-1. Program Input Form Showing Parameters 
Which Cannot be Set Equal to Zero 
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E: exponent used in the following equation to convert mass 

diffusivity at standard conditions to the value at operating 
pressure and temperature. See Table 4-1. 

^ev ’ DIF ) < TO > 1 + E 

where T = evaporator temperature (°R) 

G V 

P gv = vapor pressure of condensible corresponding 
to evaporator temperature (atmos). 

HFG: latent heat of vaporization of the condensible evaluated at 

the evaporator temperature (Btu/lb ). If a freeze-out rate 
is the primary quantity desired, the latent heat of vapori- 
zation plus the latent heat of fusion (the heat of sub- 
limation) at the freezing point should be used. 

Table 4-1 


Fluid Characteristics 


Fluid 

All 

Bll 

Cl i 

XMC 

DIF* 

E 

Ammonia (NH^) 

13.13 

3821 .04 

296548.2 

17.0 

0.763 

0.81 

Methanol (CH^OH) 

14.48 

6262.17 

557386.2 

32.0 

0.442 

0.81 

Water (H^O) 

14.20 

6526.73 

810130.7 

18.0 

0.892 

0.81 


* 


Typical values for diffusion in a 


ir. 
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4.2 Condenser Parameters, Section 1, Farthest from Evaporator 

Card 5 (6F 12.5) 

PFl: fin perimeter perpendicular to the pipe over which heat 

transfer occurs (inches). Note that if there is no fin 
(e.g. a tube rejecting heat from its outer diameter) 

PFl equals ttD .. See Fig. 1-2. 

2 

AFl : fin cross-sectional area perpendicular to the pipe (in. ). 

When there is no fin AFl is set equal to zero. AFl can 
even have a negative value to account for a reduction in 
pipe wall thickness with respect to the input value THKW. 

CF1 : effective thermal conductivity of fin for conduction in 

the axial direction (Btu/hr-ft-°F) . For a plain fin, the 
effective conductivity is simply the conductivity of the 
fin material. However, in many cases the fin might be 
segmented (slotted) to lower axial conductance. In that 
case CF1 should reflect the contribution of the segmented 
fin to overall axial conductance. An approximate approach 
to this case is as follows: 


The total axial resistance is given by: 


R T " R fin + R gap 


(4-1) 


But, 


N - 1 


1 ♦ i ♦ 1 


' ♦ 1 


R wick R wall R fin R wick R wall 


(4-2) 


Defining the relation for k' fin , the effective conductivity: 
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where 


(kA) wick + (kA) wall + k 'fin (A c ) fin 


NL- 


(kA ^wick + (kA ^wall + (kA) fin 


+ 


(N-n L q 

(kA) wick + (kA) wall 


( 4 - 3 ) 


R-j. = overall axial thermal resistance of the 
condenser section 

R pIN - thermal resistance in the region where the 
fins are attached 

^GAP " thermal resistance of the gaps between the fins 

R . . = axial thermal resistance of the wick 

wick 

R = axial thermal resistance of the pipe wall 
wa 1 1 

R^. = axial thermal resistance of a single fin 

fin 

L = XLONG = overall length of condenser section 
L = length of a single fin in axial direction 

L = gap width 

9 

N = number of fin segments 

kA = axial conductivity - area product 

= CF1 - effective thermal conductivity of the 
slotted fin 

(A ) x - = AF1 - fin cross-sectional area 

v c'fm 
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Equation 4-3 may be solved in detail for {CF 1 ) , but for most 

applications the conductance of the wick and the first term on the 
right hand side of Eq. 4-3 are negligible relative to the other 
terms. Thus, in most cases the effective conductivity may be 
calculated from the following: 



(kA ^wa11 

^c^fin 




1 ] 


(4-4) 


EF1: effectiveness of condenser fin, n (dimensionless) 

EMIS1 : fin total hemispherical emissivity, e (dimensionless) 

Must be consistent with P0W1 , section 4.6, and must be 
zero when convection only. 

HF1 : fin external convective heat transfer coefficient, 

h f (Btu/hr-ft 2 -°F) 

T 1 

Must be set equal to zero when radiation only. 

Note that EF1 and HF1 cannot both be set equal to zero. 


4.3 Condenser Parameters, Section 2, Nearest to Evaporator 
Card 6 (6F 12.5) 

The input variables for card 6 are the same as defined above for 
condenser section number 1. If there is only one condenser section, 
then set everything on card 6 identical to card 5. If section number 
2 is an adiabatic section, then PF2 is set equal to zero (Paragraph 3.4). 
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4.4 Adiabatic Section Parameters 
Card 7 (6F 12.5) 

OOUTA = outside diameter of adiabatic section pipe (inches) 

THKWA = wall thickness of adiabatic section (inches) 

CWA = thermal conductivity of adiabatic section wall (Btu/hr.ft.°F) 

DELA = wick thickness in the adiabatic section (inches) 

CWKA = wick thermal conductivity of the wick in the adiabatic 
section (Btu/hr. ft.°F. ) 

XLONGA = length of adiabatic section (feet) 

4.5 Wall Characteristics 
Card 8 (3F 12.5) 

DOUT: outside diameter of heat pipe (inches) 

THKW: heat pipe wall thickness (inches) 

CW: pipe wall thermal conductivity (Btu/hr-ft-°F) 

If an artery is present, multiply CW by the ratio 
[(kA, artery + (kA W ' < k *W ' 

4 . 6 Wick Characteristics 
Card 9 (3F 12.5) 

DEL: heat pipe wick thickness, 6 (inches) 

CONWK: effective thermal conductivity of saturated wick (Btu/hr-ft-' F) 
DART: effective diameter of arteries in pipe (inches) 

DART = (4A c /tt ) 12 (4-5) 

where A is the total cross-sectional area of arteries in the 
c 

pipe. See Fig. 1-2. 
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4.7 Environmental Parameters and Lengths 
Card 10 (3F 12.5) 

TF1 : condenser, section number 1, external fluid or sink 

temperature for convective heat transfer, , (°R). 

May be set equal to zero if only heat transfer mode 
is radiation. 

P0W1 : The absorbed power per unit area of the outer fin surface 

(perimeter times length). The power is both from the back 

(internal power) and the front (solar absorption, etc.), 

2 

but the area is the front area only (Btu/hr-ft ). For the 
case where the front is surrounded by an effectively black 
enclosure at a known temperature T.j and there is no internal 
heat transfer, P0W1 is calculated as follows: 

P0W1 = a-jC^ 4 (4-6) 

where a is the external*total hemispherical absorptivity for 

source temperature T^ and surface temperature T ev .^ If T-j is 

close to T both a and e would be the same internal total 
ev 

hemispherical emissivity. 


P0W1 may be set equal to zero for convection heat transfer 
only. In other applications P0W1 or P0W2 may be a very small 
number, e.g. 0.01, but not zero. 

XL0NG1 : length of condenser, section 1, (feet). 


*See the Journal of Heat Transfer, 91, p. 2, Feb. 1969. 
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Card 11 (3F 12.5) 

The input variables for card 10 are the same as defined above 
for condenser section number 1. If there is only one condenser 
section, then set TF2 and P0W2 equal to TF1 and P0W1 , respectively 
and make the sum of the lengths, XL0NG1 + XL0NG2 equal to the 
total length of the condenser. If section 2 is an adiabatic 
section, then TF2 and P0W2 should be input identical to section 1, 
but XL0NG2 is the adiabatic length (see Section 3.4). 


4.8 Operating Conditions 

Card 12 (3F 12.5, E12.5) 


TEV: evaporator temperature, T gv (°R) 

Q: heat pipe power, Q (Btu/hr). 

When using the heat input option, MODEQM = 0, 0 is the 
prescribed heat pipe heat load. If the amount of gas is 
input, MODEQM = 1 , the program calculates the heat pipe 
power, but it is necessary to put in a nominal value for 
Q, since it is used to non-dimensional ize certain variables. 
The value of 0 in this case is arbitrary; it need be 
correct only within half an order of magnitude. 

See Table 4— II. 

The value of Q cannot exceed the heat rejection of an 
isothermal condenser at T gv , as given by Eq. (4-7); 
otherwise an error message will print "heat flux too 
high or pipe too short." 

Q < "i p ! h h oT ev 4 + (T ev ' T f ] } ‘ P0W 1 1 


n P L \z aT ^ + h,. (T - Tp ) - P0W 9 ] 
n 2 V Z l 2 1 2 0 ev f 2 v e v ^2 2 


(4-7) 


4-9 



1 31 11 -6054-R0-00 


Z6AS: length of condenser filled with gas if a sharp 

temperature front is assumed (feet). ZGAS is a means 
of specifying the non-condensible gas inventory when 
using the gas input option, MODEQM =1. It is convenient 
for making parametric runs or estimating the performance 
of a pipe with gas in it to aid in start-up from the 
frozen state. 

Since ZGAS and AGAS cannot both be zero, ZGAS is set 
equal to a nominal value when the heat input option is 
used. See Table 4— II. 

AGAS: Amount of non-condensible gas in heat pipe and reservoir. 

tyl (lb-moles) . See Table 4-II. 

TTRAP: -Temperature of the wick at the entrance to a non- 
wicked reservoir if different from the temperature 
of the end of Condenser 1 farthest from the evaporator. 

If the same as the temperature of the end of the condenser, 
enter 0.0. 

Table 4-II 


Operating Conditions 


MODEQM 

Jl 

ZGAS 

AGAS 

REMARKS 

0 

Actual 

Nominal* 

0 

Heat input option 

1 

Nomi nal ** 

0 

Actual 

Amount of gas input 
in terms of lb-moles 

1 

Nominal** 

Actual 

0 

Amount of gas input 
in terms of gas length 


*Not used in calculations, but must be input since ZGAS and 
AGAS cannot both be zero. 


**Used to non-dimensionalize certain variables. Put in a low 
estimate. 
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4.9 Reservoir Characteristics 

Card 13 (2F 12.5, 2112, F 12.5, I 12) 

VRES: gas reservoir volume, V R (in. ). Set equal to zero when 

a reservoir is not desired. 

TRES: gas reservoir temperature, T R (°R). When VRES = 0 an 

arbitrary non-zero value must be put in for TRES. 

Use TEV. When NRES = 2 the reservoir temperature is 
determined internally to the program. Thus, an arbitrary 
non-zero value (e - g. , TEV) must also be input for TRES in 
this case. See Tables 3-1 and 3-1 I. 

NRES: control constant for type of reservoir (0, 1, 2). 

Refer to Table 3- 1 1 . 

4.10 Program Control Options 

The following variables are included on card 12 although not related to 
the reservoir characteristics. 

MODEQM: refers to a prescribed heat input (0) or a prescribed 

amount of gas (1). Refer to paragraphs 3.2, 3.3 and 
Table 4-1 I. 

ZPRINT : Indicates the length of condenser in inches between 

printed output points. This distance should exceed 
one-quarter of a pipe diameter. 

NRUN: equals 1 if another set of data follows; otherwise leave 

blank. 


4-11 



13111 -6054 -R0-00 


5.0 OUTPUT DESCRIPTION 

5.1 Innut 

The input is orinted out to document the innut parameters and to 
oermit the user to verify that they were read in correctly. The first two 
lines are the descriptive words used to describe the run. 

5.1.1 Vanor Pressure and Fluid Properties 

The first two lines of numerical printout are the input vanor 
pressure parameters and the fluid properties read in on input cards 3 and 4 
See Secti on 4.1 . 

5.1.2 Fin Properties 

The next two lines of numerical printout are the fin properties 
read in on input cards 5 and 6, Section 4.2. 

5.1.3 Adiabatic Section and Pine Properties 

The adiabatic section parameters read in on innut card 7 is then 
orinted, followed by the data on input card 8. 

5.1.4 Condenser Environments 

The condenser environments are next orinted out, corresponding to 
innut cards 10 and 11. 

5.1.5 Wick, Arterv and Reservoir 

Inout data on card 9 having to do with the wick and artery, and 
data on input card 13 havino to do with the reservoir are next printed 
in the output. 

5.1.6 Operating Conditions 

Finally, the remaining data on input cards 12 and 13 are printed 
out. The quantities XGAS and AMT are computed quantities corresponding to input 
ZGAS or AGAS which fix the qas in the reservoir. The dimensionless quantitv 
GAS is the amount of gas divided by the normalizing factor COEF, which is 
also printed. 


5-1 



1 31 11 -6054-R0-00 


5.2 Dimensionless Parameters 

A number of dimensionless parameters used in the program are 
printed. These printouts are of no great import, but the user mav 
be interested in some of them. For example, the dimensionless sink 
temperatures TS1 and TS2 give the fraction of the evanorator absolute 
temperature which would be achieved under comoletelv gas-blocked 
conditions with no axial conduction acting. 

5.2.1 Dimensionless Temperatures 

The quantities TZ, TS1 , TS2, TR, and TTRP are as follows: 

TZ To* in Eq. (2-19) 

TS1 T w in Eq. (2-1) when d6 = 0, Condenser I 
TS2 As above. Condenser 2 

TR T /T , dimensionless reservoir temperature 
res ev 

TTRP Dimensionless cold trap temperature 

5.2.2 Dimensionless Condenser Parameters 

For each of the two condenser sections the following Quantities 
are printed: 

EMIS Emissivity 
C C* in Eq. (2-16) 

F F* defined in Section 2.2, radiation parameter 

H H* defined in Section 2.2, convection parameter 

XL L* length L divided bv D e 

XS x , mole fraction of gas corresponding to temperature 
T w in Eq. (2-1 ) when dQ = 0. 

5.2.3 Dimensionless Adiabatic Section Parameters 
Quantities are printed as follows: 

C3 C* in Eq. (2-16) for the adiabatic third section 

RA Dimensionless wick resistance, adiabatic section 

DIADI Inside diameter normalized by the condensing section 
inside diameter D g 

R Dimensionless wick resistance, condensing section 

XL 3 Length normalized bv D g 
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5.3 Debug Information 

A number of printed statements give the user clues as to whether 
or not the program is functioning with the input data given it. 

5.3.1 Exits from INPT 

In subroutine INPT certain errors in the input data will 
result in the printing of one or more of the following error messages: 

CONDENSER SECTION NO. 1 INPUT WRONG 

CONDENSER SECTION NO. 2 INPUT WRONG 

INPUT ERROR, ZGAS = 0.0 AGAS = 0.0 

PIPE EXCEEDS 250 DIAMETERS 

The first two above result when, for the condenser section in 
question, the effectiveness, perimeter, or the sum of the emissivity 
and convective heat transfer coefficient is zero. 

The "input error" message results when both the length of gas- 
blocked condenser and the amount of gas specified are zero. The 
program is designed to treat heat pipes containing enough non- 
condensible gas to affect at least a portion of one of the condensers. 

If the combined lengths of the three sections exceeds 250 inside 
diameters D the internally specified incremental length DZ = 0.25 
will result in over 1000 integration steps along the pipe. This 
number will then exceed the number of storage locations specified 
within the program. For heat pipes which exceed 250 diameters in 
length, it is necessary to increase DZ within the Fortran source 
program or increase the number of storage locations. 

5.3.2 Exits from FIRST 

A check is made in subroutine FIRST to determine whether 
the mole fraction in gas blocked condenser 1 exceeds 0.999999. If 
it does, a warning message is printed 

INPUT ERROR, CONDENSER 1 ENVIRONMENT TOO COLD 

Next a check is made to establish whether the sink conditions for 
Condenser 1 are colder than those for Condenser 2. If they are not. 
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a message is printed as follows: 

INPUT ERROR, CONDENSER 1 ENVIRONMENT HOTTER THAN 
THAT FOR CONDENSER 2 

Also in subroutine FIRST, depending upon whether MODEQM equals 
0 or 1 , that is, depending upon whether the heat flux or the amount 
of gas is meant to be specified, a check is made to see whether the 
specification is compatible with the other specified parameters, 
such as evaporator temperature, condenser parameters, and reservoir 
size. IF they are not compatible the program prints one of the 
following two messages: 

INPUT ERROR, HEAT FLUX TOO HIGH OR CONDENSERS TOO SHORT 

INPUT ERROR, TOO MUCH GAS FOR PIPE 

The gas inventory estimate is made using elementary flat- front 
theory so that it is remotely possible that the user can input too 
large a gas inventory and still pass the screening test. 

5.3.3 Convergence 

The program prints messages indicating the subroutines 
used in the search for an answer satisfying the convergence criterion. 
One normal message is: 

ITERATING IN PATCH 

Subroutine PATCH calls BACK once and then FORWRD and CROSS repeatedly 
to establish the gas-blocked temperature profile in the first condenser 
section, based upon the assumption that the second condenser is 
sufficiently long to achieve a uniform gas -blocked temperature in 
the region remote from the first. If the quantity DELTEE is not 
large enough, or if the axial conduction is quite strong, difficulty 
may be experienced resulting in the prints: 

1000 STEPS IN BACK 

1000 STEPS IN FORWARD 

Trouble in CROSS may result in the following messages: 

1000 STEPS IN CROSS 

ZERO J2 IN CROSS 
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With none of these troubles the next normal print is: 

ITER=0 TSTART = Z1 = XL! = 

This printing is normally repeated with ITER increasing 
sequentially. Convergence in PATCH occurs when Z1 is within DZ of 
XL1 . Failure to achieve this situation is signalled with the message: 

FAILED TO CONVERGE IN PATCH 

After the completion of subroutine PATCH, subroutine LONG calls 
subroutine START which utilizes PIPE. Trouble in PIPE may be signalled 
by: 

TOO MANY STEPS IN PIPE, J = 1001 

In the normal situation the next print, after successful completion 
of the iterating in PATCH, will be: 

ITERATING IN LONG 

ITER=0 J START =1 GAS = QSUM = JEND = MOREJ = 

If the program continues iterating in LONG, additional lines with 
ITER =1,2, etc. will appear. Successful convergence is signalled by 
MOREJ = 0 and may be verified by QSUM = 1.0 for prescribed power or 
GAS nearly equalling the value printed under the previous heading 
AMOUNT OF NONCONDENSIBLE GAS. Failure to achieve this condition 
results in the message: 

FAILED TO CONVERGE IN LONG 

Under some conditions subroutine LONG may call upon subroutine 
START2. In this case the message: 

ITERATING IN START 2 
may appear followed by prints of: 

I = TSTART = XSUM = QSUM = JEND = MOREJ = 

Convergence is again indicated by MOREJ = 0 and an appropriate 
value of QSUM or XSUM. 

Under other conditions, following the print ITER = 0 from sub- 
routine LONG, the print: 
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ITERATING IN SHORT 

ITER = TSTART = XSUM = QSUM = 

appears. Convergence is indicated by an appropriate value of XSUM 
or QSUM. Lack of convergence is indicated by: 

FAILED TO CONVERGE IN SHORT 

5.4 Calculated Reservoir Conditions 

After completion of the iteration searching process the reservoir 
conditions are printed: 

TRES Reservoir Temperature in °R 

XSR Mole fraction of noncondensible in reservoir 

RESGAS Amount of gas in lb.-moles in reservoir 

If the volume of the reservoir is input as Zero, this line of 
output will not appear. 

5.5 Profiles 

Profiles of temperature, mass flow, mole fraction and cumulative 
sums of power lost and gas contained in the reservoir and pipe are 
printed versus length along the pipe. These profiles are as follows: 


J 

Z IN 

Z 

V 

p 

TI 

XSUM 
QSUM 
MASS FLOW 
QFLOW 
XS 
TWICK 
TWALL 
MGAS 


Integration sten 

Distance from end of condenser farthest from 
the evaporator in inches 

Dimensionless distance 

Dimensionless mass flow V* in En. (2-17) 

Dimensionless qas quantity <f> in Eg. (2-10) 

Dimensionless wick - vaoor interface temneratures 

Dimensionless running sum of gas contained 

Dimensionless running sum of oower lost 

Vapor flow in the pipe, lb. /hr. 

Cumulative power lost, BTU/hr. 

Mole fraction 

Wick- vapor interface temperature, °R 
Wall temperature, °R 

Cumulative sum of qas contained in the reservoir 
and the nine ,1b. -moles 
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Missing values of J have been skipped because of the ZPRINT criterion. 

5.6 Total Gas and Heat Flow 

The final four print statements are as follows: 

GAS IN ONE DZ STEP OF GAS-BLOCKED CONDENSER 1 = LB-MOLES. 

POWER LOST BY ONE DZ STEP OF FULL-ON CONDENSER 1 = BTU/HR. 

TOTAL GAS IN PIPE AND RESERVOIR = LB -MOLES. 

TOTAL POWER LOST BY CONDENSERS = BTU/HR. 

The first line is the gas contained in a length of Condenser 1 
equal to the step size used in the integration. The second line 
likewise equals the power radiated in an incremental length of full- 
on condenser. Of the final two lines, one should agree, within the 
integration precision, with the input value, and the other constitutes 
an answer of interest to the heat pipe analyst or designer. If ZGAS 
or AGAS had been input, the gas inventory should agree with that value 
within the precision indicated, and the power is the answer sought. 

If Q had been input, the power should agree with that value within 
the indicated precision, and the gas inventory is the answer sought. 


5-7 



13111-6054-R0-00 


6.0 NOMENCLATURE 


C 

D 

A 

E 

F* 

H 

K 

L 

M 

P 

P i 

0 

Q* 

v e 

R 

R u 

S 

T 

T 

o 

V 


Cross sectional area 

Axial conductivity-area product 

Diameter 

Diffusion coefficient for noncondensible in 
condensible 

Empirical constant for temperature dependence of £' 

Nondimensional quantity defined in Paragraph 2.2 

Irradiation onto condenser surface 

Radial wick conductance 

Length of condenser 

Molecular weight of condensible 

Molar inventory of noncondensible 

Heat transfer perimeter of fin 

Partial pressure of noncondensible at temperature T.. 

Heat transfer rate 

Nondimensional quantity defined in Paragraph 2.2 
Gas constant for condensible 

Universal gas constant (1545.4, ft-lb^/°R-lbmole) 

Radial conductance from condenser 
Temperature 

Characteristic temperature of fluid defined by Eq. (2-8b) 
Mole average velocity 


c - Molar concentration 

h - Coefficient of heat transfer 

- Latent heat of vaporization 
k - Thermal conductivity 

m - Mass flow rate 

q - Heat flux 

v - Void volume 

x - Mole fraction of noncondensible 

z - Axial position 
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a - Absorptance of condenser surface 

6 - Wick thickness 

e - Total hemispherical emittance of condenser surface 

<j> - Dimensional variable defined by Eq. (2-10) 

$ 1’ ® 2 ’ ^3 * $ 4 ” Dimens i° n l ess groupings defined in Paragraph 2.2 

n - Effectiveness of condenser fin 

a - Stefan-Boltzmann constant 


Subscripts: 

abs 

b 

c 

e 

ev 

f 

i 

min, max 
nominal 
n 

Res , R 
s 
w 

1,2 


Absorbed from surrounds 

Bulk average (area-velocity weighted) value 

Effective sink conditions 

Equivalent value 

Evaporator conditions 

External fluid conditions 

Wick surface conditions 

Minimum, maximum 

Initialized value for numerical solution 
Cross-sectional element of pipe 
Reservoir conditions 
Spatial (area weighted) average 
Condenser wall conditions 

Condenser section number 1 and 2, respectively 


* - Superscript denotes nondimensional variable 
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APPENDIX A 

FLOW DIAGRAM (TRW-GASPIPE) 


The flow diagrams presented in the following pages are included 
as an aid to understanding the overall program logic. 
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FLOWCHART OF MAIN PROGRAM 
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FLOWCHART OF SUBROUTINE PATCH 



RETURN 
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FLOWCHART OF SUBROUTINE LONG 
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FLOWCHART OF SUBROUTINE SHORT 
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APPENDIX B 

LISTING (TRW - GASPIPE) 

The program listing which is reproduced in the following pages 
was compiled on a CDC-6500 computer. The program is general and may 
be used on the IBM 360 or Univac 1108 simply by changing the asterisks 
in the output format statements to an apostrophe. In addition, the 
first card of the main program, which defines the input and output 
tapes, is not required with the IBM and Univac versions. 

Storage requirements are on the order of 50,000 words (octal); 
approximately 15 seconds are required for compilation and from 10 to 
60 seconds computation time per run. 
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000004 

00000 ** 

JUJU B 

00000 ** 

00000*1 

flOOOO** 

00000 ** 

000004 

000004 

000004 

000004 

00001)4 

000004 

000004 


PROGRAM GASCON ( INPUT- 201 ■ T-APES= TN P UT , OUTPUT, TAPES' OUTPUT) 

C MODIFICATION OK GASPl»E TO TREAT TWD GAS-BLOC KEO 

C CONDENSERS AND AN ADIABATIC SECTION 



COMMON /CONO?/ XL?, TS?, C2, E?, H2 , EMIS2, XS2 
COMMON /AniAB/ XL 3, C 3, RA , 01 ADI 

COMMON /WORK / XL. TS, C. E, H, EMIS, THIN, ZF 

COMMON XVP7XO/ VVC1000), PP(IOOO), ZZ(IOOO), XXflOOO), 00(1000), 

1 V8I1000), PB ( 1 000) » ZBI1000), XB (10001 * QR(1000), 

7 V SAVlin n 0). PSA V(IO OO) . ZSAV ( 1 00 0 ) » XSAV (IOOO). QS AV( 1 00_Q_) 

COMMON /GASOTA/ TZ, O t E, Alt, flit. Oil , BELTEE* HFG 

COMMON /PIPOTA/ TEV, DFT, Q, GAS, TP, VP, VRES, OZ, p, COEF,TTRP 

COMMON /TNTr/ NP r S . MODEOM, ZPR I NT, NR O N . NFPROR 

COMMON /PIPTN/ 7ZFPO, VZERO, PZERO, XZERO, QZERO, JZEPO, XTEST 
COMMON /PIPOUT/ XSU«, QSUM, °SUM, XSP, ZEPONT, JENO, PP£Q, PREG 

C OMMON /LNG/ JST ART, JSAV. XL12. XL123 ... 

COMMON /CPSS/ Z1 ,Z2, Vl,V2,Xl,X?,PCP0SS,aCR0SS, J1,J1M,.12, J2M, JBAK 
REWIND K 

RPWTND 6 

C 

1 NERRORrO 

_ 5.M CALL I .n pt . 


000012 

000013 

000015 

IF (NERROR. ED. 0) GO T 0 
IF (NRUN.FD.l) GO To 1 
600 CALL FXTT 

oooaiG 

? OONTTNUF 

000016 

THIN=TS1 

000020 

9f:l_T£E= 0* 2^ 

000022 

CALL FTR^T 



FIRST CHECK*- CONSISTENCY OF INPUT Q AND GAS 

C ALL PATCH 

PATCH P A T CH r S TOGETHEp THE TEMP. PROFILES AT THE 
CONOFNSER JOTNT. 

CALL LONG __ 

LONG SFAPCHPE criP A VALUE OF JST APT c OP WHICH 
XSUM FOtJALS CAS 

CALL OUTPT 
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KLL 


*■ pw C* *s <?•■» •P'/T f r- 

fj V‘\ ' ; JF </ C ?( r*<* 1? -f *>• 

l» CCMPTI FP WfR-76) 


10/02/73. 15.Q5.14. 


SimfffHlTTNF RACK 


000002 

■annn? 


000002 

000002 

,000002 


000002 

000002 

moon? 


000002 


COMMON 

COMMON 


/CON 01/ . XL 1, 
/C0N02/ XL2. 


TS1. 

TS7. 


Cl* 

Sla. 


FI, 

F2. 


HI, 

HiU. 


EMIS1 * 
EMI52, 


XS1 

XS2 


COMMON /VPZXO/ VVJIOOO), PPtlOOOl, ZZ<1000)» XXflOOO), QQ<1000», 
V 0 ( 1-0 0 0 ) , PB(1000»* ZflilOOO) , XB<1000), GB(IOOO), 
PCIVMnnn). ZBAVCIOOO). X5AV (1000) , QSAV(1P0 01 


usas/mopo). 


COMMON /60SDTA/ TZ, 0, E, «11» Bll, Cll* 
COMMON /PTPOTA/ T£V» OFT, Q, GAS, TR, VR, 
COMMON jXQSXJ. nUMMYlGI. THIN, ZE. 


OFtTEE, HF6 
VRES, OZ, Ri 


COEF.TTRP 


COMMON /CPSS/ Z1,Z2,V1,V2,X1,X2,PCR0SS,0CP0SS,J1,J1N, J2,J2M,JBAK 


C 

nnnnn? call consfc tzi 

00000% TSTART=TS?-OELTEE/TEV 

000007 PZERO=PHTITSTART) 

0 Q0012 nZ»-0.2S 

00001 % v= i. oF-e 

000016 P=PZERO 

000020 CALL SATUR (P,TI ) 

080022 CALL MOLE (TI.XS) 

C 


All lift 74 
000025 
000026 
finnn?7 


J=B 

XSUM-0 « 0 
OSU*=0*0 

7- ft . ft 





0000 30 
000032 
ft ft fifths 


00 100 1*1,1000 

CALL RUNGE IV,P,0V,0P1 

7F IAB5rrv». FT. 0.06751 GO TO 200 

, 




000042 

000043 

iia nniiC 

200 

GO TO %00 
OZ=OZ/2.0 
r.c Tn i on 





JJUUUHS . - 

0B00%6 

000066 

niMiftcn 

400 

CONTINUE 
J=J*1 
7 = 7 407 





000052 

00005% 

PflQQg6 


pi=p 

P=P*OP 

V=V*OV 






“bsck 


00-0y-l7S09- L LLC L 



B-6 


000003 

000003 

000003 

000003 

000003 
000005 


IiTiTiIil 


000011 

000011 


S>mRPUTTNr rON^FC (N5FC) 

COMMON /CONDI/ XLl f TS1, Cl* FI, HI , EMI^l* XS1 
COMMON /C0N07/ XL ? * TS_ ?, C2 t F? ^_H2j_E!LISg t XS2 
COMMON /aOIAP/ OlftOT 

COMMON /*OD»</ XL* TS, C* F* H, FMTS* THIN, 7F 

IF (NSFC.NF.l) GC TO loT 
XL-XLi 


000317 

003021 


EMIS=eMISl 

RFTUPN 


000022 100 CONTTNUF 

000022 TF C NSFC* NF • ? ) CO TO 200 


00002* 

TS=TS2 

000030 

C=C2 

00 0032 

F=F? 

OD003U 

H = H 2 

oooo3& 

FMIS=FMIS? 

00 ’ll? VO 

RFTUPN 


000041 

000041 


XL = XLH-Xl? + Xtl 

TS-TS2 

C = d 
*-0.0 

H ~ 1 1 0 

FMTS=0.0 
RETURN * 


CONSEC 
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B-8 


4K , : •;*.** v 

diimy rrwoTi FO 

<VFP.’6> 10/02/73. 15*05.14, 

CROSS 


000363 

000367 

101 

40 

SPITE <B,4n» 

c 0PMAT «/* 7Fi»0 J2 TV CROSS*) 



000967 
00 0367 

c 

102 

CONTINDf 
J2Mc J2*i 



QOOOM 

000074 

000077 

' - 

Q2H=0B(J?*> 

JlH=Jl-l 



000101 

000104 

000107 


Q1H=0Q(J1H) 

PlM=pp{jiM> 

TFPM1=(P1-P1M)*(02-Q7H) 



000113 
000117 
00G1 21 


TFPP?=lQl-ni H>*( °2H-P2) 

(jrM0M=TEPMl*TpPM7 

TFRP3= (Ol-Ol M) *P1M-(P1-P1M)*Q1H 



. v, v y i s ^ — 

000130 
00013*5 
DO 01 1*4 


TERN4=(G2-02H>*P2M1 (P2M-P2) *02M 

xnuh=teph3* (o?m-p2i ♦tfpma* ipi-pim) 

PCROSS=XNUN/OFNOH 



000146 
000154 
non i 


XNUM= (01-01M)*TFRH4-(0?-0?M)*TERM3 
OCPOSS = XM)M/r>FNOM 

TF'(PI.NE.PIH) FPAC1= (PCROSS-PIM) / (P1-P1H) 



U U U 1 V 

000164 

000172 

000200 


TFIP2.NF.P2H) FRAC2= (PCR0SS-P2M) / (P2-P2M) 
tFCQl.NF.01M) FRAC1=(0CR0SS-Q1H)/IQ1-Q1M) 
T F ( Q? . NF . 02H) FPAC2=t0CR0SS-Q2m/(Q2-Q2N) 



ftl W 4 U U 
000206 
000214 
ftfin ? ?? 


71=Z7(J1 MI*F»AC1* (77(Ji> - ZZU1MM 
Z2=7B< J2N> *FRAC2* (ZB ( J?) -ZB ( J2M ) ) 
V1 = VV( J1H) 1FRAC1*(VV(J1)-VV<J1N>> 



r V y y £ c c 

000230 

000236 

non?44 


Xl=XX<JlM>*FPACl*tXX(Jl)-XXCJlH)) 
V2=VBCJ2H)+FRAC2* ( VB ( J2) -VB ( J2M) ) 
X?rXB( J?N) ♦FRAC?* (XB ( J? ) -XB ( J2M l ) 



Hie tf fc t *1 . 

000252 

000263 


RETURN 

END 




CROSS 
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f i-r .( . 

BUM* rtnMPTi fi? tuFP.y^T J 10/02/73. 15.05.14. 


wiwit nnMPilH? lHZ.U£/i-a*. .laalOjlHi .. 

SUBROUTINE OFL TA IV . P . OV . DP) ‘ 

000007 

080007 

000007 

COMMON /M 0RK/ XL, TS, C, 
COMMON /GASDTA/ TZ, 0* E, 
COMMON /PTPDTA/ TEV. DFT. 

F, H, EMIS, TNTN, ZF 

All, Bll , Cll, DELTEE, HFG 

O. GAS. TP. VR. VPES. DZ. R. COEF.TTRP 


000007 

000014 

000020 

CALL SATUR(P*T) 
TEE = T**F 
XC=FEX CP) 



080075 

000033 

OftSOfrl 

CALL SliRFITf S*TC> 
X~EXP(-P> 

QI * SMT-TC)m»0 + S*P) 



000047 

000057 

000052 

TCPMI = C*(X/XCI*(T**2/TEE>/)0*TZ> 
OP = DZ*V/<D*TEE> 

TEPM2 * i.0-«2.0-F)*(T/TZ)*X 


000070 

000074 

000182 

TERMS = V**2/<M*TFF*XC> 
0tf=0Z*TERHl*TERH2*TERM3/(l.+TERMl> 

IF tQI.EQ. 0 . ) RfTURN 


000104 

000115 

nnmift 

0V=(0Z*QI/C 1.0*TERM1>)*(1 
RETURN 

END 

•0*TERMl*TrRM2*TERM3/QI) 





/ 


DELTA 
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B-ll 


ii 




10/07/73. 15. 05.14 . 


008002 
nnnnn? 
000002 
000002 
000002 
. 008002 
000002 
nnnnn? 
000002 


SUBROUTINE PIP51 

Film CHECKS 0 AND GAS 

COMHON /CCNOl/ YL 1 , TS 1 , Cl» Fit HI, EMIS 1 , XSl 

COMMON /CON 02 / YL 2 . TSZ. C 2 . £ 2 , H 2 t £JlLS2..i_J<52 

COMHON /AOTAR/ XL 3 ,C 3 , RA , 01 AOI 

COMMON /« 09 K/ XL* TS, C, F» H, EMIS, TMTN, 7 F 

COMMON /GBSDTA/ TZ,_ D, E, ^ 1 . 3 EITEF, HFG 

COMHON /PIPOTA/ TEV, DFT, O, GAS, TR, VR, VRES, DZ» 9 , COFF ,TTRP 
COMMON /INTC/ MRES , M 00 EQM, 7 PRTNT , NRUN, NE 9 R 0 R 

COMMON /PTPTN/ 77FPO. VZERO. PZERO. XZERO. QZEPOi... >JZERSLi_jLtES_T 

COMMON /PTPOUT/ XSUM, QSUM, RSUM, XS 9 , 7 FR 0 NT , J c N 0 , PREQ, PRFG 


C 


nnnnn ? 

tfst=i * n-*si 



080804 
000012 
nnnm ? 

IF ( TEST#L7 , 1 «0F-6) WPITFf&tlO) 

10 FORMAT (/* * INPUT ERROR* CONDENSER 1 ENVIRONMENT 
TEfTS?.LT.TSl> VRITF f 6*1 11 

TOO COLO’) 


000020 
000020 
nnfin ?n 

11 FOPMATt/.* INPUT EPPQR, CONDENSER 1 ENVIRONMENT 
1 * THAN THAT FOR CONDENSFP 2*) 

n7-n. 2S 

HOTTER*, 


000022 

000025 

000027 

PREG*OZ*XSl/T$i 
TT = 1 * 0 

CALL CONSFC (1) 



000031 

090034 

000042 

CALL SURF1TT , SI, TCI) 

QI1 a Sl*fTI-TCl )/a.0»St*R) 

PRFQ=OZ*OTl 



900044 

000045 

TFtHOOEOM.NE.OI GO TO 0* 

C CHECK FOR 0 CONSISTENCY 

CALL CONSEC (2) 



000047 
00005? 
nn nn ah 

CALL SURF (TI,S2,TC2) 

012 = S2MTI-TC?) /tt .0*S?*R> 
V7 = OT1 *XL 1 ♦QT?*XL? 



000064 

000067 

090073 

TFtVZ.GT.1.0) RETURN 

HRITEt6,12» „ 

F ORM AT ( / •* TNPUT RRROR. HEAT FLUX TOO HIGH OR C0N0ENSE9S*,_ _ 


000073 
000073 
nnm 9i 

1 * TOO SHORT*) 

WRITE 16,60) Sl,TCl,0ll,XLl,S2,TC?f0I2,XL?,V7 
fin FORMAT C1X.BE12.4) 



FIRST 


131 11-60 54- R0-00 


RU NX COMPILER 1 VCP,?6) 


10/02/73* 15,05,14 


FIRST 


000121 


Q0Q122 

000122 

000124 


000130 


000134 

000144 

Pm 1 ^ . 


00 0151 
000162 


POOlfi? 

000175 

000175 

00017 5 

000176 

000177 


50 rn 995 

c 

C CHECK FOR GAS CONSISTENCY 

C 

. 9ft CONTINUE 

T91= TS 1 

TF ( NRFS, EO. 1 ) T91=TR 

T r < N^F S » EQ , ? 1 TP r Tp 1 

IFINRES.EO. 0.ANn.TTPP*NE,0.O) TRl^TTRP 
CALL HOLE <tri,xSR) 

9SUH-VR^XSP/T R 

GASHAXsRSlJM* YS t ♦ XL 1 /TS1 + XS2* ( XL 2+XL 3 ) /TS 2 
IF (GASMAX,GT ,GAS) PF T URN 

K R I T F ( 6 « 1 3 ) GAS, f ■ A S M A X 

13 FORMAT (/,?X**INPUT FRROP, TOO MUCH GAS FOR PIPE*,4X* 
1 * GAS =*,E12.4,4X t *GASNAX =*,E12.4) 

<>99 t*LL EXIT 

RETURN 

END 


K> 




FIRST 
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wrnift iiunr tLrn 1 l.u i L.U£H£*f ; t/t . . 

SUBROUTINE PQRWPD(TSTflPT) 

080003 

008003 

c 

COMMON /CONDI/ XLt, TS1, Ct» FI, HI, EMISt, XS1 
COMMON /COND2/ XL2, TS2, C?» F2. M2. EHIS2 , XS2 _ 


000003 

000003 

000003 


COMMON /VP7X0/ VVdOOO), i»Pd000), Z711000), XXdOOO), QQdOOQ), 
1 V0C1OOOI, P8<1000>, ZB ( 1000) , XB11000), QBdOOO), 

? VSA V (10 0 0 ) • PSAVC1000), ZSAVdOOO), XSAVdOOO), QSAVdOOOl 

900003 

000003 

000003 


COMMON /GASOTA/ TZ, D, E, All, BU, Oil, OELTEE, HFG 
COMMON /PT»OTA/ TEV, OFT, 0, GAS, TP, VR, VRES, 02, R, 
COMMON /WORK/ DUMMY (6). TMIN, ZF 

COEE * TTRP 

000003 
00 0004 

c 

TMIN=TSTAPT 

PZERO=PHI (TSTAPT) __ . _ ... 


000 907 
000010 
on not 4 


TR1=TSTAPT 

TF(NPES.FQ.l) TP1=TP 
TF(NRES.FQ.Z) TR=TP1 


000020 

000030 

000033 


IF(NRES.EO. 0. AND.TTPP.NE.0.0) TRUTTRP 
CALL MOLE (TR1,XSR> 

RSUM=VR*XSR/TP ... 


000036 

006061 

OflOOb? 


CALL HOLE (TST ARTtXSTAPTI 
2=0. 

V=D. 


000043 
000045 
DO 00 47 


P=P7ERO 

XSUH=PSUN 

QSUN=D« 


000050 
000051 
DU0Q53 ... 


J*0 

D7=0*25 

CALL CONSEC (1) 


000056 

000060 

000064 


00 100 1-1,1000 

CALL RUNGF (V,P,OV,OP) 

TF(A9S(DV).GT.0.0S25> GO TO 200 


000071 

000072 

000074 


GO TO 60 « 
200 0Z=0Z/2. 
GO TO 100 

7 • '' ' / 4/ 

000075 

000075 

000077 


400 CONTINUE 
J=J*1 
?=Z*OZ 


'T01WR0 
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.** " ■' A .• * 0 

i • ' n '*""*■■■ 

RUKTX CCHPTLFR tVFR.261 10/02/73. 1S.0S.14. FORMRO 


IF U \ uunr 

000101 

000103 

1LEI\ 

i vrr uc ,7 r j# 1 

P1 = P 
p=p+ OP 


000105 

000107 

000112 


v=v+o V 

PH»<P14P1/?* 

CALL SATUP (°**T*> 


000115 

000120 

000124 


CALL MOLT (TM,XM> 
X$UM=XSUK»XW*D7/TM 
CALL StJPFCTM.S.T^ 


000130 

000136 

000141 


ai=s*cTM-rn) 
0SUM=GSUM+0I*n7 
VV< J)=V 


000144 

000147 

000162 


Pp(j) sP 
77 ( J> = 7 
XXC J)=XSUP 


000155 

000160 

000173 


00. (J) sQSUM 

IF(ABS(OW>.t-T.0.01*!67S.flNO.AH < ?(OZl .IT. 0.25) D7*2.*07 

CALL SATU® t P, T T) 


0001*6 

000701 

000703 

ion 

IF (XT *GE* T 5?) GO TO 150 

CONTINJJF 

HRITr ( S * 1 D ) 


000210 

000210 

000212 

10 

150 

FORMAT t/?X»*1009 STFPS IN FORHRO* i 

CALL FX IT 

CONTINUE 


000212 

000214 

000*16 


TMTN=TS1 

07-0 • 2*5 
RFTU°N 


000217 


END 



• 



FORumr 
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|piH& CnUPTlFPtVFP . ?61 


10/02/1.3, JAJIS^iAx 


■SUBROUTINE INPT 


uumz 

000002 

000002 



COMMON /CONOl/ *L1, TS1, Cl, FI, HI, EMISi, XS1 
COMMON /COMO?/ XL2, TS2, C2, F2, M2, EMIS2, XSZ 
common /arran/ xi t.ct.ra.otaot 

000002 

000002 

0Q0QD2 



COMMON /WORK/ XL, TS, C, F f H, FHI S , TMTN, 1 F 

COMMON /GASDTA/ TZ, D* F* 411* 811, Cll, OFLTFF, HFG 

COMMON /PT D DT4/ TF V « DFT, Q* GAS, TP, VR, VRES, 02* 9* C0EF « TTRP 

000002 

000002 

000002 



COMMON /INTC/ NRES, MOOFQM, ZPRINT, NRUN, NERROR 

COMMON /PIPTN f ZZERO, VZERO, PZERO, XZ^PO, QZFRO, JZFRO, XTEST 

COMMON /PTPOUT f XSUM. OSUM. RSUM. XSR. ZPRONT. JHNO, PREQ. PREG 

000002 

000006 

onnonft 


5 

READ (5*6) 

FORMAT (72H 

* - - - /.72H 

000006 

000006 

/> 


t . > 

WPITE (F,F> 


c 

ni 


FLUIO CHARACTERISTICS 



READ (5*10) A11*911*C11 

80 00 24 

c 

c 

10 

FORMAT (3F12.51 

All, fill ANO Cll ARE VAPOR PRESSURE PARAMETER 1 ? IM THE LEAST SQUARES 
FIT, P=FXPf All-Plt/T-Cll/ (T**2)» , PSTA,T TN OFG-R. 

0000?i* 

000040 

C2 

11 

PEA 0 (5,11) XMC,PIF,E,HFG 
FOPMAT(4F12.51 


C 

c 

c 


XMC IS MOLECULAR WEIGHT OF THE C0N0FNST9LF 

OIF IS THF MASS DIFFUSIVITY AT ONE ATMOS ANO 4609, FT**2/HR 
E IS THF TEMPERATURE EXPONENT FOR DIFFUSIVITY MINUS ONF 

000040 

flnilQ44 

c 

_1Z 

MFC IS THE LATENT hFAT ( STU/L 8) ( A T jr\j ) 

W9ITE<6, 1?) 

FORMAT ( / , 26H VAPOR PRESSURE PARAMETERS) 

000044 

000066 

000056 


13 

WRITE 16, III AH, fill, Cll 

FORMAT (/, 6H A11=1PE12,5,7H fill=lPE12.5, 7H C11=1PF12.S> 

WRITE 16. 141 

000062 

000062 

J0qq76 


14 

15 

FORMAT ( //* 1 7M FLUID PROPERTIES) 

WRITE (6,15) HFG , OIF , X MC * E 

FORMAT C/*6H HFG=F9.4,14H 9T1J/LB DIF=FO,4*16H FTFT/HP XHC-F9.4 


INPT 
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CO 

cn 



0000 7 6 


1 1 OH CD EYP=F9.4> 


CONDENSER PARAMETERS, SECTION 1, FARTHEST FROM FVAPORATOR 

I 

REAP (6. 16) p Fl.APl,r,Fl. FFl,E MTS l ,HF1 

16 C 0RMAT(6F12.S> 

PF1 IS FTN DFPIMrTPP PERPENDICULAR TO PIRP (INCHFS) 

API IS FTN CROSS-SECTIONAL ftPEA (50. INCHES) 

OF 1 IS EFFFC T TVf THERMAL CONDUCTIVITY OR PIN, ALLOWS FOR SLOTS 
FF1 IS FTN EFFECTIVENESS (DIMENSIONLESS) 

FMTS1 TS FTN TOTAL HEMTSOHERT C AL EHTSS IVI T Y (DIMENSIONLESS) 

HF1 IS FTN CONVFCTTVF HEAT TPANSFEP COEFFICIENT < RTU/H9-FT2-R) 
WRITE (6,17) 

17 FQPMflT ( // , * F IN PROPERTIES, CONOENSFR SECTION NUHBPR l») 

WRITE (6»1M RF1 , AF1,CE1,EF1,EMIS1,HF1 

10 FORMAT (/»?Y,*PF=*»F l i«4,* IN* , 2X , * AF=*, F* .4, * SQ TN*,2X, 

1 »CF=».Pft.U.» D TU /HPFTR* ,?X . *EF=* ,F6.4,2X, »FH TS~ *,F6 .4»2X« 

? *hf=*,F9.4,* PTU/HRFT2R*) 

TEST=FF1*FF1*(fmTS1+HF1> 

TP (TEST.NP.n.< CD TO 996 

NERR0P=1 
WRITE (6, 1«) 

ID PQRM A T ( / <S6M CONDENSER SECTIO N N O. 1 INPUT WRONG) 

996 CONTI N«JF 

CQNQFNSF 0 P A°AHF TFPS . SFCTIDN ?, NEAREST TO EVAPORATOR 


READ <5, IE) PF?,AF2,CF2,EP2,EMIS?,HF2 

HRITE <6 ,?p) 

20 FORMAT ( //, * FIN ppnPFRTiFS, CONDFNSFR SECTION NUMBER 2*) 
«PTT r (6,1 «) PF? , AF?,CF?,FF?,PMIS2,HF2 

tfst=fhts?»hfp 

IF (TEST.NP.O.) GO TO 997 
NFPR0R=1 

WRITE (6, 21 ) 

21 FO°M AT ( / ,36H CONDFNSFR SFCTION NO. 2 INPUT WRONG) 

997 CONTINUE 



00 - 0 H"frS 09 “L L L£ L 



JMPI 


AOIARATIC SECTION CHARACTERISTICS 


READ IS, 22) OOUTA,THKWA,CWA,OELA,CWKA,TLONGA 

22 F0RMAT«6F12.S> 

poiita milSIflE nr amftfr tINCHES_L 

THKHA IS HALL THICKNESS (INCHES) 

CHA IS WALL THERMAL'CONOUCTTVTTY (RTU/HR-FT-°) 

QFLfl TS THE WTCK THICKNFSS IN ADIABAT IC SECTION — ( INCHES) 

CHKA IS EFFECTIVE CONDUCTIVITY OF WICK t OTU/HR-FT-R) 

XLONGA IS THE LENGTH O r THE ADIABATIC SECTION (FT) 

MRTTF (IS. 23) — 

23 FORMAT (//»?9H AOTABATIC SECTION PROPERTIES > 

WRITE {ft, 24) DPUTA.THKHA,SWA,OELA,CHKA,XLONGA 

7 U FORMATt/PH BOUT A=F9.4«11 H IN. THKH A -F9« <t , UH IN. / 

1 6H CWA= F9.4,17H BTU/HRFTR DFLA=E9.4, 

7 GH CHKA= E9.4 »19H BTU/HRFTR XLONG A = F9 . 4 , 3H FT ) 

WALL CHARACTERISTICS 

RFA0(5.79) POUT « THK W i CW 

2*5 FORMAT (TR12.SI 

OOUT IS OUTSIDE 01 AMFTF.R OF HEAT PTPF (INCHES) 

THKW 19 wall THTCKNFSS (INCHES) 

CW IS MALL THERMAL CONDUCTIVITY (BTU/H«-ET-R> 

WRITE<6,?f> 

7 ft FORMAT I //« 1 EH PIPE PROPERTIES.) 

27 PORMATU^TH 0 f)0UT=F9.4,lSH IN WALL THK=F9.4,16H IN WALL CONO = 
« F9.4.13H BTU/HRFTR) 


WICK CHARACTERISTIC^ 

R£A0I5»2R) OEL»CCNWK,OART 

20 FORMAT (TE12.F) 

OFL IS THE HEAT PIPE WICK THICK NESS (INCHES) 

CONWK IS THE EFFECTIVE THERMAL CONDUCTIVETY OF FILLED HICK 
OART IS THE EFEECTTVE DIAMETER OF ARTERIES IN PIPE (INCHES) 


13111-6054-R0-00 
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RUNX COMPILER (VEE.26) 




1. H P.I . 


C ENVIRONMENTAL PARAMETERS ANO LENGTHS 

C 8 

000336 REA0(5,?9> T^l, POWt , xToNGl 

000350 29 FORMAT ( 3F1 2. 5) 

C TF1 IS THr FMJTO TEMPFPATURF (PEGREES-P) 

C °0W1 IS THE ARSOPREO POWER PER UNIT AREA OF THE OUTER FIN SURFACE 

C (PERTMITFp TIMES LENGTH) THE POWER IS ROTH INSIDE (INTERNAL 

C POWER) ANT OUTSTnF (SOLAR ABSORPTION, FTC.) 8UT THE AREA IS THE 

0 OUTSIDE APFA ONLY (DTU/HR-FT?) 

C XLONG1 IS IMF LENGTH OF CONDENSER SECTION NUHRER 1 (FEET) 

S3 

000350 PEAD(5,?R) Tr?, PCN2 , XIONG? 

C XL0NG2 IS TH r LENGTH OF CONDENSER SECTION NUMRER 2 (FEET) 

000352 WRITE (5. 30) 

000365 30 FORMAT (//,* CONOENSFP ENVIRONMENT* SECTION NUMBER 1*) 

000366 WRITE (6*31) TFl .POWt .XLONGl 

000400 31 FORMAT)/,* TF=* . 0°E 12.4** R PQW= * . 0PE1 2 . 4. » BTU/HRFTFT XLONG=* 

000400 t .0PF12.4,* FT*) 

000400 WRI TF (6* 32) 

000404 3? c OPHAT (//«* FONO c NSE° FNVTPQNMFNT. SFCTTDN NUMBF° ?*) 

000404 WRITE (6*31) TF2» P 0W2.XL0NG2 

C 

O OPERATING CONDITION S 

CIO 

000416 PEA O (5.37) Try ,0 , 7G AS , AGA S ,TTP A P 

000434 33 CQPMAT (5F12.F) 

C T(r V is THE FVAPCRATOR TFHPERATURE (DEGPEES-R) 

C O IS THE HEAT PIPE POWER (RTU/HR) 

C 7GAS IS Thc LENGT H pr CONDFNSER FILLED WITH GAS IE SHARP F RONT. FT 

C AGAS IS THE AMOUNT OF GAS IN L9-M0LFS 

C ONE, RUT NOT ROTH, OF 7G AS AND AGAS MUST RE EQUAL TO ZERO 

C TTRAP IS THE COLD trap tfm°ERATURE (P). IF THERE IS NO 

C ACTIVE COLD trap, USE 7FR0 FOR THE INPUT VALUE. 

000434 TF(ZGAS. EO. 0.0. ANO. AGAS. EQ. 0.0) GO TO 998 

000442 IFdGAS.EC.O.O.OR.AGAS.FO.O.O) GO TO 2 00 

000450 R98 CONTINUE 

000450 NERROR - 1 

00 04 51 WRITF (6. 34) 7GAS,Ar.HS 


INPT 
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crnr-'- ^. J 7 

l J /• , * / r ,1- < -V < =~-* “ * 

puny f!OMP tlIfp CVFP.2M 10/02/73* 15.05.14* TNPT, 

000461 34 FORMAT ( /,* INPUT (RONG, ZG AS = * , OPE 1 2 . 5 , * AG AS = * , 0®E 12 . 5 1 

nnntAi gal t fxtt . .... ... 

000462 200 CONTINUE 

C 

ft RRSFRVOTR CHARACTERISTICS ...... 

Cll 

000462 READ (6,361 VRES.TPFS, NRFS, MOOEQM, ZPRINT ,NRUN 

nnnsn? 35 format(2E12.s,?ii2,fi2.5,ii2) _. .._ . . 

C VRES IS THE RESERVOIR VOLUME IN CUBIC INCHES 

C TreS IS THE RESERVOIR TEMPERATURE IN DEGREES R 

C NRES PFFERS TO A NON-WICKED (01. AN ACTIVE-WICKED < 1 1 OR A ... 

C PASSIVE-WICKED (2) RESERVOIR. 

C MODFQH REFERS TO A PRESCRIBED Q (01 OR PRESCRIBED MOLES OF GAS (11. 

C IN THF LATTFR CASF 0 IS SIMPLY A GUESS. HOPEFULLY LOW BUT CORRECT 

C IN ORDER OF MAGNITUDE. IN THE FORMER CASE AGAS IS SET EOUAL TO 

C ZERO ANO ZG AS IS A NOMINAL GUESS. 

C NPRTNT INDTOATFS THF NIJMPFR OF LIN C S TO BE SKIPPEO IN OUTPUT. ..... . .. ... 

C NRUN EQUAl s 1 IF ANOTHER SE T OF DATA FOLLOWS. OTHFRWISE 0. 

000602 WRITF (6 * 36 1 

nnnsn g 3G formati//.* wtck propfrttes and reservoir conditions*! . _ .. 

000506 WRITE (6,371 DEL, CONWK, DART, VPES, TRFS , NRES 

000526 37 FORMAT (/,2X,*WCK THK=*»F6.4 f * IN*.2X,*WCK CON=*,F8.4, 

nnnsPG 1 * RTll/HRFTR*.?X.*0-ARTs*.F7.4,* IN*,2X.*V_RES=* ,F8. 4,* CU IN*, .... 

000526 2 2X, *TPFS=*,EG.l,* R* ,2* ,*NRES=* ,121 

000526 SIGMA = 0.1714R-8 

nnn63n ru = 1544.0 

000532 PT = 3.1415927 

000534 TE(EMISl.f Q.0.0. ANO.HF1.EO. 0 . 0 1 GO TO 999 

nnnsu? go to ton .. . ~ - 

000543 999 CONTINUE 

000543 NERROP=l 

nnn544 return ... ... 

C 

C CALCULATION of DIMENSIONLESS PARAMETFRS 

000545 100 CONTINUE 

000545 IF (NERROP.EO.11 GO TO 999 

nnn 547 call sinmemtsj ,powi,hei,tfi,tsh . . _ 


"INPT ^ 
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L , *. r 

pii isJrv rriMpT! fp 1 0/02/73* 1^05.14, INPT . 

000553 

000555 

TS2=TS1 

TF(P c ?.KF.n.1 CPU. STNK(EHTS2.P092.HF2,TF2,TS?> 


00056? 

000564 

00056ft 

TS1 = T S 1 / T E V 
TS2 * TS2/T^V 

Pll = 511/TFV - 


000570 

000572 

000574 

Ctl = “U/TFV**? 

call MOLr<Tsi,xru 

CALL M01F (TS2.YSP) 


000576 

000500 

000602 

TP = TRES/TFV 
TTPPsTTP AP/Tpv 

PFV=(FXPtAll-Pll-Cll> 1 *144.0 


000611 

000614 

000621 

CFV = PFV/CP'J*TFV) 
TZ=Bll*Clt* ( l.O+l.O/TSl) 
PATHOS ~ PFV/U 44. 0*14.71 


000623 

000634 

000640 

OFV=(DIF/PATMOS1 *( (TFV/460. 01 ** CF>1.0>» 

CMDH = XMC*OFV*rFV*HFG 

niP = OOUT -? • 0* T HKW 


000643 

000646 

000651 

oi = niN-?.o*nPL 

FIK'KAl = rFi*#ri/i44.o 

CTNKA? = CP?*AF?/144.0 - 


000654 

00066? 

000670 

MALKA s (PI/576. 0)*(OOUT**?-DTM**?)*CH 
WICKA - (PT/576. 0) *<DIP**2-DT**21 *CCNWK 

SUHKA1 - FTNKAt*WALKA«-WTC*<a 


000673 

000676 

000701 

StfHKA? = 5TNKA74WALKA + WinK« 
nrwA=onuTA-2.»THKvift 
OINWA-OTNA-?.*nf LA ' 


000704 

000711 

000716 

P9A=(PT/4.t * (f1031T4**2-DIN4**2> 

AMXAc(or/4. 1*(0TNA**2-0TNWA**21 

SUHKA3= tr>IA*SMA + CWKA*AWKA> /144. 


000721 

000726 

000736 

TF(OT.r,F.OBPT) GC TO 300 
WPITF(6,30) OT . D APT 

39 F 0°M AT f /,* OAPT TOO PIT. 0 1 = * . OPE 1 ?. 4 , * 0 APT = * , 0PE1 ?. 41 _ 


000736 

000737 

000^40 

NERPOP=l 

9ETUPN 

303 OFT = SOPT(ni**?-OART**21/l?.0 ... 


000747 

000764 

nnn75ft 

VP s VRFS/( (PT/4. 01*1728. 0*OFT**3) 

XL 1 = XLOP'Ol/OFT 

XL 2 - XLON02 /OFT 


INPT 
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ii 


*s r. • ry 

'</ ; , C * . ** .t 


DI1WY rnMPTI fp' 

10/D2/73. 16.05.14. IRPT _. .. 

000760 

nnn7fi? 


XL3 = YLONGA/OFT 

Yl TOT-XL 1 *XI 7 ... 

000764 

000767 

0110773 

40 

IFtXLTOT.LT. 250.1 GO TO 600 
HRITE<6,40» 

FORMAT t//.’7H PTPE EXCEEDS 250 DTAMETEPS.I ._ . ...... . - 

00D771 

000774 

000774 

600 

CALL EXIT 
CONTTNUF 

Cl = SUMKM »TFV/(Q»nFT) .... .. ... 

001000 

001004 

001010 


C2 = SUMKA2*TEV/((l*DFTl 
C3 = SUMKA3*TEV/tQ*nETl 

XXAs?. *CT*CVtXA*f)FT* TEV/ < 0* A LOG (OINA/OTNHA) 1 _ _ .. . . 

001073 
001075 
00 1077 


RA=1./XKA 

OIAOIsOINA/OI 

XX = ?.n*PT*nnNKx*0CT*TFv/(0*AE0G(0TN/0in .... _ - 

001042 
001044 
001 051 


9 - 1 « 0/XK 

n e 1Pr/4.01»nFT»CMnH/0 

FI = FF1MPFi/12.0)*DFT*SIGMA*TEV**_4/'L ... . 

001060 
001067 
nm 073 


P2 = EF2*(PF?/12.01 *0PT*$IGMA*TEV**4/0 
HI = HFl*TEV/tSTGMA*TEV**4> 

H? s HF?*TFV/tSTG»4fl*TEV**41 

801077 

001103 

001106 


COFF s 3.14l5927»CFV*DFT*M/4.0 
GAS = AGAS/COFF 

TSlsTSl -- 

001107 

001113 

001117 


TFtNRES.EO.il TPl^TP 
TFtNPES.EO.21 TP=TP1 

TFtNPES.EO.O.ANP.TTPP.NE.O.O) TR1=TTPP 

001127 

001131 

001134 


CALL HOLEtTRl.XPl 
RSUM=XR*VP7TR 

TF (7GAS.EG.0.0) GO TO 400 

00 11 35 
001142 
001145 


GAS = (7GAS*YS1 / (TSl’O^TM +R6UM 
TF (7GAS.LE.XLONG11 GO TO 400 

G AS=RSUM*Xt 1 *XS1 /TS1 ♦ (7G AS-XLONGt l*XS2/CTS2*0 c T> .. _ 

001157 

001161 

001166 

400 

AHT = COFF*GAS 

XS AS = 0 F T* t GAS- RSUH )*TS1/XS1 

IF tXGAS.LE. XLONG1 1 GO TO son _ _ .... . 

001171 
001174 
Mlill 


6AS1=XL1*XS1/TS1 
GAS 2= <GA$-p$UM! -GAS 1 
XGAS=OPT* fXLl* (GAS?*TS2/XSZ1 1 


INPT 
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£ . ' ' 

PUNX CCMPT 

r 

•'*%> & / 

LF* 

10/02/73, 15.05.14. 

INPT 



001204 

001204 

500 CONTINUE 

WRITF t6*41 ) 






001210 41 FORMAT ( //, 21H OPERATING CONDITIONS) 

001210 WRITEC4,42) TF V , 0 , MOOEOH, CEV * TT RAP 

0 0122 *, 4? FQPMAT(/.* TFV=»,QRFl g.4 , ^ R_ Q=^j QPE12.4.* BTU/HR MO OEQM®* , 

001224 TT?, * C r V- * ,0P r 12.4,* L0MOLE/FT3 TTRAP®* , 9PE12. 4,* R* ) 

001224 , WPITF(5,43i 

Q01232 43 C PPM A T ( //, RRH AMOUNT OF NONCONDENSIBLE CAS) 

001232 WRITE 14,44) GAG, 7GAS , AGAS.COEE, AMT.XGAS 

001252 44 FORMAT < /,5H G AGs 0°E 1 2. A , 0 M ZGAS= 0PE12. 4, 11H FT AGAS =0PE 12. 4, 

00125? * 15H LRHOLE C0FF = QP F 12.4«9H LBNOIF/.5H AHT=QPE12.4. 

001252 t 14H L5MOLF xGASs 0PE12. 4, 3H FT) 

001252 WP I TF < 4 ,45 ) 

001254 45 FQPHflTt//,* OTMFNG IONIESS TFMPERATURFS* ) 

001254 WRITE (6,46) T7,TS1,TS2,TR,TTPP 

001274 46 FORMAT (/,* T7=*, flPFl?. 4,* TSi=* ,0»F1 2.4,* TS2®*, 0PE12.4,* TR=* , 

00 12? 4 $ QPF12.4,* TTRP=* , 0PE1 2. 4) 

001274 HP TTF (6,47) 

001300 47 FORMAT ( //, * PT MENSIONLESG CONDENSER PARAMETERS, SECTION NO. 1*) 

001300 HPITE(5,4S) FHTG 1 , C 1 , FI ♦ Ml , XL1 , XS1 

001320 40 FORMAT ( / ,* fmig=* , 0PE12, 4,* C®* , 0PF1 2. 4, * F=*, 0PF12. 4»* H®* , 

001320 $ 0PE12.4,* XL®*, 0PE1?, 4,* XS®* , 0»E1 2 .4) 

001320 WRITE (4 ,4R 1 ' . 

001324 40 FORMAT ( //, * DTMFNSIONLFSS CONDENSER PARAMETERS, SECTION NO. 2*) 

001324 WRITF (4,45) FMTF? , C2 , F2 , M 2 , XL2 , XS2 

001344 WRITE ( 4,Fft ) 

001350 50 FORMAT ( //» • DIME NSIONLFSS AOIA0ATIC SECTION PARAMETERS*) 

001350 WRITF < 5,51 ) C3»P#*0IADI,R,XL3 

001366 51 FORMAT (/,4H C3=F12 .5 ,5H Pa®E12.5, 

001345 1 OH 0IAnT=ri?. <5, 4H R=fi?.5,5H XL 3= E12.5) 

001365 WRITE < 5 , f?> 

00137? 52 F QRH AT ( ///) 

001372 RETURN 

001373 END 
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ii 


000007 COMMON /COMOl/ XL1, TS1, 01, p l, HI, EMTS1, XSl 

000007 COMMON 7COND27 XL ? ± TSg, C2 j_£-? , H?, FMIS2, VS2 

000007 COMMON /ftnT0<V XLT,07,°A,0IA0I 

000007 COMMON /CASO T 4/ T7, 0, E, All, Oil, Cll, OFLTEE 


000007 CALL S9TUP (»,TIl 

000014 0TEF=0*TI**P 

nnnn?i tfpm= <tt»»?/dtff>»eyp(-P) / (fex (p>»t?) 

000041 IF ( NSEC • FO, ? ) CP TO 100 

00 00 47 VNEW=V*< <1. 0+C1MEPM) 7 fl . 0 f C?*TE p M) ) 

noons? °ftu?n 

00Q3S3 100 CONTINUF 

000 OS 3 VMEM=V*C(l.*C?*TF l ’M)/(l.+CT*TERM) 1 

0000*2 <? FTU P .M 




11-6 
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■ nf 


£ 


teijNX nnMPTiF*? <vep-.2-6i 


IQ/ 02/73* L5 ^H5±±<**. 


SIlRPmiTTNF 1 OMC - 

nn n n n 9 

c 

c 


LONG CALLS START REPF ATFDLY TO SFARCH FOR A VALUE 
JSTART FOP WHICH XSU * GAS OR QSUM * O 
COMMON /CONDI/ VI. 1. TS1. Cl. FI. HI. EMIS1. XS1 


000002 
000002 
nn nn n ? 



COMMON /CPNDV XL?* T$7, C2. F2, H2» EMTS2» XS2 
COMMON /APIA"/ TL3,C3,PA,0IA0I 

COMMON /WOOK/ XL. TS. C. F» H, EMIS, THIN, ?F . 


000002 

000002 



COMMON /PTPOTA/ TFV , OFT * Q, GAS. TP, VP, VPFS, OZ, R, COEF.TTRP 
COMMON /TNTC/ N»ES, MODE3M, ZPRINT, NPUN, NFRROP 
COMMON /LHC/ JSTART* J5AV* XL12, XL123 


000002 
000002 
no a n n 4 



COMMON /PTPOUT/ XSUM, OSUM, RSUM, X^R, 7 F RONT , JEND, PREQ, PPEG 
JS4V=J C NP 

JST ART = 1 - 


000005 

000005 



CALL ST A°T 
call rrsrr(HOPpj) 

Vi P_J TF (6,^0) - 


000014 
000014 
nn nn 1 5 


7 0 

POPMAT(/,?X, ¥ I T FRATING IN LONG* 1 
T = (l 

WPrTFlS.?m T, JSTART, XSUM.OSUM, JENO,MO*> c J 


000035 
000037 
non (141 



IF | MORE J. FO • 'll RETURN 
TFIMOPEJ.FO.l) FO To OR 

CALL SHORT 


000042 

nnnnuT 

c~ 

99 

RETURN 

CONTINUE 


000043 

000045 

r 


JMAX=JSAV 

JMIN-1 


000046 
0000*50 
nn nn*? ? 



DO 100 T = l, 3(1 
JOL 0= JST A°T 

.ISTAPT-I-IMAV+JMTN) /? .... - 


LI KJ U U 7 L. 

000055 

000057 

000063 



TF| JSTAPT.NF.JOLO) GO To 101 
IF (MOREJ.FO. 1) JSTAPT=JSTART*1 

CALL START? 

/ / 

000054 
000055 
00005? 


101 

TMIN=TS 1 

RETURN 

CONTINUE 



LONG 
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/ ff*i * <f 'T'b * * 

■9l nfFP.261 


000067 

oq q o. yp , 
SO 007 2 

080112- 

000112 

000112 

000112 

00011<* 

000116 

000120 


rail STflOT 

COLL TFSTFCHOREji 

MRITE 16,20) 1. JSTART, XSUM, QSUM, JENS. MORE J 

] FOEHATt2X.»ITER=*.I4.2X.*J5TART=*.I4 t 2X, 

1 *XSUM=*,F12. e :,2X,*aSUM=*,E12.5» 

2 ?X « * JENP=* ♦I4«2X»*M0PEJ-*»T4> 

IF CMOREJ.FQ.O) RETURN 

IFlMOREJ.Fa.l) GO TO 200 
JH4X=JSTART 

GO TO 100 


000121 

000121 

200 

000123 

100 


c 

600125 


000131 

10 

000131 

c 

000132 


000133 



CONTINUE 

JMIN= JSTftPT 

CONTINUE 

NPITE <6»10> 

FORMAT (/* FAILFO TO CONVEPGE IN LONG*) 
CALL EXIT 

RETURN 

EN0 
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k 


Ibijnx ooh pti fp 




SUqPOUTTNr OtJTPT 


000092 

000092 

Innnno? 


COMMON /WOP*/ XL, TS, C, F, H, ENIS, TMTN, ZF 

COMMON /VP7XC 1 / VV< 1000) » PP(IOOO), 77(1000), XXtlOOO), 0011000), 

' 1 VfiltOOO). PPC1000). 70 <1000) * X8<1000), 00(1000), . ... ... 



00000? 

000002 

nnnnn? 


? VSAVdOOO), PS AV <1000) » 7SAVU000 ), XSAV(IOOO), OSAVMOOO) 

r OMMON /GA COTA / T7, 0, F, All, Pit, Cll, OELTEE, H F G 
COMMON /PI° OT A / T^V, OF 7 , Q, GAS. TP, VP. VRES, OZ. R. COFF ,TTRP 



00000? 

ooooa? 

r 

COMMON /PTPOUT / TSUM, OSUM, PSUM, XSR, 7FR0NT , JFNT), PREQ, PREG 
COMMON 7TN T C / NRES, MOOEQM, ZPRTNT, NRUN, NERPOR 



000002 

000003 

nnnotit 


V=0.0 

7=0.0 

«>FSGas=COPP*PSl1M 



0G000* 

000010 

nooon 


TRFS=TFV*Tp 

TF < V D ES .FO. 0.0 ) GO TO 0? 

HRT T r { 6. 1 0) TRFS.XSP.RFSGAS 



000023 

000023 

000023 


10 pOP“AT</,?v,*tpf9 =*,E12.4,* OFG R*,4X,*XSR =*,E12.4,10X, 

1 *PFSCAS =*,P1?.4,* LP-MOLFS*) 

PS CONTINUE 



000023 

000021# 

00002A 


Nsrc=l 

CALL COtfSFCfMSFC* 

TPP TNT = 1 _ . 

L 


000027 

rmnnsi 

c 

00 100 J=1,JFN'1 

Vt = V 



000033 

000035 

nnonuo 


7trZ 
?*Z7tJ) 
7FT = 7* OF T 



000042 

000044 

nnnr»54 


7 IN=1 2 , *7PT 

TF t J.EO.l .OR.J.FO. JFND) GO TO 102 
T c ( 7 . 1 F.Xl ) GO TO pp 



000057 

000051 

000063 


TF CNSFC.FQ.t) GO TO 101 
TF < NSEC.FO. 2) GO TO 103 
TF (NSFC.F0.3) GO TO 200 


• 

000065 

000070 

000073 


qq JPPINT-=7IN7 7 ’ , 9T?’T 

TP< JPRINT.lt. TPPTNT) GO TO 100 
T°PINT=JPPTNT-fl 






OUTPT 






“ 1 ^ 
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••'“7^,.,,..... 

RUNX COMPILER (VFp.26) 10/02/73. IS. 05.14. OUTPT 

000075 

000075 

102 CONTINUE 
V=VV(JJ 


000100 

000103 

000106 

?=PPU) 
XSUH=X*fJ 1 
QSUH-GQ ( J) 


000111 

000113 

000115 

( 5 FLOWr 1 *nSUM 
CALL SATUPtP.TT) 
CALL H0LF(TT,X5» 


000117 

00012 ? 

00013? 

CALL SUPF<t T ,S,TC> 

tw- cTi^s*p*rr> /< i.g+s*p> 

TWTCK=TFV*TT 


000134 

000136 

000141 

TWALl=TEV*TM 
XHOOT=V*Q/BFf; 
AM T=CO r F*VCUM 


000143 

000150 

000154 

DTFF=0* C TT**F) 
CVDZ=CV-Vil /<7-7i) 
ASTN=0V07/f 16,0* HT EE) 


000157 

000171 

000171 

HRTTF (5,11) J, 7 IN, 7 

11 FORMAT (/* j ^*,I4,6X,*ZIN =*,E12.4,* INCHES*, ax , *Z =*,E12.4> 
HRTTF (5.1?) V.P.TI 


000203 

000203 

000215 

12 FORMAT ( lf»X , *V =*,F12.4,15 X,*p =* « E 12. 4, 14X , *T I =*,E12.4) 

HRITF (6,13) XSUM,OSHM,XMOOT 

13 FORMAT (13X , *XSl)M =* , Fi j . 4 , 1 ?x , *OSUM ** , F. 12. 4, 8 X , *MASSFLOM = *, 


000215 

000216 

000227 

1 F12.4,* LD/HP*) 

MR I TF (6,14) OPLOM.XS, THICK 

14 FOPMAT (lZT,*o c LCH =»,F1?.4»* BTU/HP* , 7X , * XS =*,F12.4, 


000227 

000227 

000237 

1 1 IX, * THICK =* »E 1 2 . 4 ,* DEG R* ) 

HPITF (5,15) THALL, AMT 

15 r fl p M at ( 12 X . *TH ALL =*,F12.4,* DEG P*»5X,* NG AS =*,E12.4, 


000237 

000237 

000240 

1 * 1_^-I*0LF5»> 

60 TO 100 
101 60NTTNUP 


000240 

000241 

000243 

NSFC = 2 * 

CALL CONSFCf NS r n> 
60 TO 102 


000244 

000244 

000245 

103 OONTTNUF 
N6FC=3 

CALL C0N5FH IWFC» 




OUTPT 
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jp 7 r. u$-f r* * ^ • r,r v 

HI ink ’ftriMPTi Wg^f tfcg'l frftf ’ 10/Q2/7_3«_ 15.05.14. OUTPT . __ 

000247 

nnn?sn 

GO TO 10? 
inn CONTINUE 

000293 

200 CONTINUE 

p 

0M^3 

na=o*p9F o 

OD0255 

000257 

000265 

OG~COEF*PREG 
WRITE (6»?3> OG 

73 FORMAT (/.* GAS IN ONF 07 STFP OF GAS-BLOCKED CONDENSER 1*, 

tOO 26 5 
000265 
000273 

1 4X,*=*,E12.5,* LR-WOLFS*) 

WRITE<6,?4> 00 

24 FORHAT ( /«* POWEP LOST BT ONE 07 STEP OF FULL-ON* t 

000273 

000273 

000301 

1 * CONOFNSFP 1 =*,F12.5»* BTU/HR*) 

HP ITF (6,?EJ AMT 

?S FORMAT C/* TOTAL GAS IN PIPF AND RESERVOIR =*.E17.5, 

000301 

000361 

000307 

1 * U?-N0LE5*> 

*Sim6,26) OELOW 
RETURN 

000310 
000110 
nnnsi n 

76 FORMAT ( /»* TOTAL “CHER LOST BY CONDENSERS =*,E12.5 t 
1 * BTlI/HP * > 

END 



OUTPT 
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?? -Hp f 

h \ ** r/ n *•'- ^ r •• • 

RUInt tiofotLFR (VFR.26) 10/02/73. 15.05.14. ... . 

SUBROUTINF PATCH 

§00002 

000002 

C 


COMMON /CONOl/ Xll, TSt, Cl, Fl, HI, EMI51, XS1 
COMMON /C0N02/ XL?. TS2, 02. F2. H2. EMI S2 , XS2 


000002 

000002 

000002 



COMMON /AOIAB/ XIT,C7,RA,DIA0I 

COMMON /VP/XO/ VV<1000), PP(IOOO), ZZ(IOOO), XX(IOOO), QQtlOOO), 
t VBC1000). t»B(1000), 7011000) , XB(IOOO), 00(1000). 


000002 

000002 

000002 



2 VSAVUODO), PSAVC1000), ZSAV(IOOO), XSAV(IOOO), QSAVflOOO) 

COMMON /GASDTA/ TZ, 0, E, All, 011, Cll, DELTEE, HFG 

COMMON /PT°DTA/ TEV. OFT. 0. GAS, TR, VP, VRFS, OZ* COEF.TTRR _ 


000002 

000002 

000002 



COMMON /PIPOMT/ VSUM, QSIIM, 9SIIM, XSR, ZFRONT, JFNO, P9FQ t PPEG 
COMMON /LNG/ JSTART, JSAV, XL12, XL123 

COMMON /CRSS/ Z1 ,72. VI, V2i_Xl .X2.PCROSS .QCROSS. J1 » JIN. J2, J?M ,J3AK . 


000002 

088006 

c 

10 

NR|TE(6,10) 

FORMAT (/.ZX.MTERATING IN PATCH*) ....... _ 


000006 

000010 

c 


T0IP=0FITFE/TFV 

TSTART=TSt+TniF 


000012 

000014 

000016 



THIN=TSTART 

THA*~TS2 

CALL F ORWPfMTSTA ) 


000020 

000021 

000022 



CALL PACK 
CALL CROSS 
T=0 


50 0 0 23 
D00037 
000037 


11 

MRITE (6, 11) I,TSTAPT,Z1,XL1 

FORMAT (2X,*TTER=*» T4,2X,*TSTART=*,F10.5,?X,*Z1=*, 
1 F10.5.?X,*XL1=*.F10.5> 


000037 
000042 
00 00 



IF { Z1 ■ LF • XL 1 1 GO TO 200 
00 100 1=1*30 

TSTART-(THrNfTMflX> /?. . 


000047 

000051 

000052 



CALL FORNRO(TSTART) 

CALL CROSS 

HRITF46. 11) I.TSTART.Z1.XL1 


000066 

000071 

000074 



TEST=AOS ( Z 1 - XL 1 1 
TF (TEST.LT.OZ) GO TO 101 
IF (Zl.GT.yLl) THIN=TSTA9T 



PATCH. 
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GO 01 0 0 I C <21.LT.XLH Tm«V=TSTAPt 



000112 IF (71.LF.XL1> 50 TO 200 

000115 TI=J1 



000132 103 CONTIN'JF 

000135 104 COUTTNIJF 



000146 CALI. SATUP(d,TT1 

000150 CALL HOLF(tt, x <;> 



000203 HO 105 I=IT,J1* 


000205 JJ=JJ+1 



000223 PPfJJ>=P 

000226 P5AV(JJ)=P 



000245 XX(JJ>=XS()M 

000250 X5»VfJJ)=X5IJM 
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10/ 02/73. IS. OS. 14 


a;-. •*. 

j. / f * ••/ £*>*. -* *• *•' -» • ■' <"» ■*•* 


RUWX CC*°TLrP (VEfi.26) 


00025$ 

000261 

OQf JJJ=QSU*1 

0SAV(JJ)=O5llH 



00026*1 

000267 

000270 

106 CONTINUE 
GO TO *00 
200 CONTINUE 



000270 

000272 

000274 

Z0IEF=X11-71 

CTFP=Z0IFF/07 

Tl^STFP 



000276 

000300 

000302 

STFP-I 1 

Z0IFF=0Z»STFP 

QSUM=XX(1) -77(1) *XC1/TS1 _ 



000306 

000311 

000316 

Z=XL1-ZW0IFF 
TSUM=PSU*+Z*XS1/TS1 
P=PHI (XSU - ... 



000320 

000322 

000324 

TFUt.LE.O) TO TO 202 
00 201 I=1«I1 
7=Z*DZ 



000326 

000332 

000334 

Y5Um=*SUW»17*X51/T51 

vsAvm=o. 

P5AV(I)=n 



000337 

000342 

000346 

Z$AVU>=7 
XSAV<n=X5UN 
35 AV ( I ) = 0 • 



000347 

000352 

000352 

201 CONTINUF 

202 CONTINUE 
DO 203 



000354 

000356 

000362 

VSAVfJJ)- V V { T > 
PSAVf JJ1=PP (T) 



000366 

000372 

000400 

ZSAV (JJI=77 m 

YSAVt JJI=*Y m ♦(YSU**- 1 ? 51111) 

OSA V t JJ) =Q0 ( T) 



000404 

000407 

000411 

203 CONTINUE 

00 204 1=1, JJ 
VV(U=VSAVCT» 



000414 

000417 

000422 

pf»m=PSAvm 
771 I)=ZSAV(T1 
X*m=X5AV(I> 





pfljCH. 





PATCH 


CO 


I 

cr> 

0 
cn 
4 ^ 

1 

XJ 

0 

1 

o 

o 
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000425 CT«I» = n«AV(I» 

JUmiO 204 COMTINUF 

000433 300 CONTINUE 

000433 70IFF=XLl-77tJJ> 

IQ0n436 _ JJ?JJ *1 

000440 ’-311 

000442 CALL SATUP (P0R05S,TCR0SS> 

00 0444 CALL MQir f^C "’OSS ,XSC) 

000446 P^PCROSS 

000450 V=V1 

n00 45 2 XSUH=XXtJJ» »70lf F»XSC/TC p OSC 

00045? QSUW=Q0PPE0 

000461 VV(JJ)=« 

000464 VSAVtJJMV 

000467 PP(JJ)=P 

000472 P5A' f ( JJ> =p 

1M4I5 ZZCJJ>=7 

000500 Z S A V ( J J I - ? 

000503 XXUJ>=XSU* 

000506 XSav(JJ)=V-3Uv 

000511 CO<JJ>=OSUM 

000514 a5AV{JJ»=05UM 

000517 *SUMC=X5UM 

000521 II=J2 

000523 JJJ-J2-1 

,000525 n o 301 1=1 , JJJ 

000527 11=11-1 

000531 70 IFF= 70 ( T T > -7? 

000674 *niFF=XEMTT) -X? 

000537 J.J=JJ+1 

000541 v-vnjin 

Jill 05 4 4 VV<JJ>=V 

000547 VSAV ( JJ ) ~V 

000552 P~PR < 1 1 ) 

000555 ° p (JJ>=P 

000560 C CA V ( J J ) =P 

000563 7=XL1+70TFF 

000565 7 7J_ J J )_^_7 ___ _ 


PATCH 
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IgUNX C0PPTLP9 rVF 0 .? ^) 


1 0 / 02 / 71 . 15 . 05.1 4 


PATCH 


0M571 

000571 

75A V t J 11-7 
xSUMsXSUMC+X'nfT 



000575 

000600 

000603 

XX ( J J)~XSUH 
X<SAV»JJ)=X*'I«« 
OSUM=Qf) (IT) 



0006O6 

000611 

000614 

. 00 ( JJ) -OCUH 

OSAtf < J.J1 =Q5U M 
70TP c -7f»(Tn -77 



000517 

0006?? 

000624 

xniFF-XXHT) -X? 
JFND^JJ 

TP 17*65* Xt. 1?3) PP TU»N 



000630 

000633 

000636 

701 CONTINUE 

70 1 FF = Xt 1 Z 7—7 
STFP=7nlFF/07 



000637 

000641 

000643 

n<?tfp=5tfp 

fy^TFo-Nciro+i 

STFP^NSTEP 



0CH1645 

000647 

000550 

02=7OIFF/FT^P 
V-( 1. 

P=PHT (T5? ) 



|000563 

000654 

1000657 

GSUM=0. 

X$UM=XX(JJ) 

00 302 T*t,NS T rp 



000661 

000667 

000665 

JJ=:JJ+t 

?=Z+nz 

XSUM=X5UM+n7*x c 2/Tc ? 



000571 

000674 

000677 

VVCJJl=V 
V5A V { J J)=V 
PP{ JJ1=P 



00070? 

000705 

000710 

psAV(j.n=p 
77 ( JJ) - 7 
25 A V ( J J ) =7 



000713 

000716 

000721 

XX( JJ)-X5UM 

X5 A\M JJ ) ~XSU M 
GQ( JJ) =OSt?M 



000724 

000727 

00077? 

G5AV< JJ)=0°U« 
30? rONTTN'JF 

JFNH=JJ 



PATCH 
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I PUNY COHPILFR (Vrp .26) 


JJV 0 2 / T 3 . I*,f 15.14. 


SUR9QUTTMF ptpt 


000002 
00 00 0? 

c 

COMMON /W0RK7 XL, TS , C, F, H, EMTS, TMIM, 7F 

COMMON /VP7V07 VVdOOO). PP(lOOQ), Z7d0IJ0) , XX(1OO0), QQdOOO), 

00000? 

00000? 

00000? 


1 V"<1000), POdOOO), ZOdOOO), XOUOOO), OOdOOO), 

2 VCAVdOC), PSAVtlOOO), 7SAVUOOO), XSAVU000), OSAVdOOO) 
COMMON 7° T °H T A / TFV, OFT, 0, GAS, TP, VP, VR^S, OZ, p, COFF.TTPP 

00000? 


COMMON 7PIPIN/ 77FPO, VZFPO, PZFOO, XZFPO, QZFPQ, JZERO, XTEST 

000002 

c 

COMMON /ptoo'JT/ XSUM, OSUM, PSUM, XSR, ZFRONT, JFNO, PRFO, PREG 

00000? 


v=vzepo 

000004 


P=PZ rp O 

000006 


7=7Z rp O 

looooio 


J= J7ER0 

00001? 


XSUM=X7F p 0 

loOOO 14 


Q5UM=07H p 0 

000016 

r* 

07=0,25 

000020 

U 

DO 100 1=1*2000 

0000?? 


CALL PUNGF fV,P*DV T DP) 

000025 


IF (ASS(OV) .GT, 0.1250) GO TO 200 

00003? 


GO TO 400 

000033 

?P0 

07= n 7/?« 0 

000035 


co to ion 

000036 

4 0 0 

CONTIN'JF 

000036 


J-J+l 

000040 


TF<J*GT*10Hfn r . c TO 10? 

000044 


2=Z*07 

000046 


IF < 7 • 0 T ♦ XL * GO T 0 160 

00005? 


P1 = P 

000054 


P-p+OP 

000056 


V= V+DV 

000060 


ph= ipi + p )/?. n 

000063 


CALL SATU* <°M*T*t 

00 0065 


CALL MOLF (TV ? xm> 

000067 


XSU M =XSUH*V^*0 T /TM 

000073 


CALL SU? r (TM,s*TC) 

/ PIPE 
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00 0076 OI = SMT»<-TCI /Cl. D + S*P> 



000120 XX(J>=X?IJM 

000123 QQ(J»=QSUM 



000151 10 FORMAT </,* TOO MANY STEPS IN PIPF, J =*,I5» 

C 



000163 2-XL 

000165 P1=P 



000203 PM=CPl»P>/2." 

000206 CALL SATUP (PM.TM) 



000225 CI=S*(TM-TC)/tl.O+S*P) 

000233 QSUM=QSUM+OT*OZ*PRAC 



000250 V7FP0=V 

000252 7ZER0=7 



1 3111 -6054-R0-00 




000007 


:oom 




000017 

00007? 

MM11 

000031 

000036 

pnnnut4 

000046 

oooosn 

.110QQ56 
000064 
00 007 7 


CALL PELTA(V,P,DV1,0P11 

vi = v+nvi/?.Q 

Pt = p+ nPi/?,o 

CALL OELTA (VI , PI ,nv?,DP?) 

VI = VfPV?/?,Q 

PI = P + 0 p 2/7 »0 

CALL DELTA (Vl^ p lfDV3*DP3> 



pi = 

CALL DELTA CV1, PI ,DV4,OPM 
qv - (nvi+?.o»ny?+g. o»dv3»civm / 6.o 
DP = CDPl*?.n*OP?4-?.O*DP34-DP4)/6.0 
PETUPN 

EMU 
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*Tl*rr^O/7 
f / i'S: 

piiwy rnHPTiip r> 10/02/73* 15.05*14. 

SURRnUTTNF SHORT 

000002 COMMON /CONDI/ XL1, TS1, Cl, FI, HI, FMIS1, XS1 
000002 COMMON /C0ND2/ XL2, TS2, C2, F2, H2, EMIS2, XS2 
OOOnO? COMMON /AOIAB/ XL3.C3.PA.DIADI 

000002 COMMON /HO»K/ XL, TS, C, F, H, FMTS , OUMM, Z F 

00 DO 0 2 COMMON /VP 7 XQ/ VVfiOOO), °°(1000), 77(1000), XX(1000), QQC1000J, 

000002 1 JfftlOmj^PBCJLOJJOl, 78(1000) , XB(IOOO) , OB (1000) , 

090002 2 VSAV(IOOO), PSAV(IOOO), 7SAV(1000), XSAV(IOOO), QSAV(iOOO) 

000002 COMMON /GASOTA/ TZ, 0, F, All, Bit, Cll, OELTEE, HFG 

000002 COMMON /P1»9TA/ TEV. DFT , 0, GAS, TP, VP, VRFS, DZ, P, COEF,TTPP 

000002 COMMON /INTO/ NPES, MOOFQM, ZPPINT, NPUN, NPRPOP 

000002 COMMON /PT° T N/ ZZEPO, V7EP0, PZEPO, XZEPO, QZERO, JZFPO, XTEST 

000002 COMM.QN /PIPOUT/ XSUM, OSUM, PSUM, XSR, 7FPONT , JFND, PREQ, PPEG 

000002 COMMON /LMG/ JSTAPT, JSAV, XL12, XL123 

000002 WRITE (6, 10) 

000006 10 FORMAT (/,?Y,*ITF RATING IN SHORT*! 

000006 TMAX=1 , 

000010 CALL SATUP(PSAV(1» ,TMIN) 

000012 DO 100 1=1,30 

000014 TSTART=(TMTN»TMAX)/2. 

000017 OUHM=TSTAPT 

000021 J7EPO=0 

000022 PZEPO=pH!ITGTAPT) 

000025 VZFPO=0. 

000026 Z7EPP=0. 

000027 TPlsTSTAPT 

000031 IF(NRES.FQ.l) TP1=TP 

000035 IF1NPES.EO.?) TP=TR1 

000041 IF(NPES.EC.O.ANn.TTPP.NE.O.O) TP1=TTPP 

000051 CALL MOLE (TP1,XSP) 

000053 PSUM=VR**SP/TP 

000056 XZERO=RSUH 

000060 QZERO- 0 • 

00 0 061' CALL C0N5ECI11 

000063 CALL PIPE 

000064 . CALL JOINT 1 1 ,P7EPI5, V ZERO , VZFPO ) 

000067 CALL CONSECC?) 


SHORT 


00-0y-t?!f09- L L L€ L 
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n<u pipe 

CALL J0INT(g,P7ER0,VZEP0«VZEPQ> 
CALL C0NSFCI3) 

CALL PIPE 

CALL TESTF(HQPEJ) „ 

IF f MORE J . FO . 1 ) CO TO 200 
TMIN=TSTART 

WRITEt6.il) T.TETART.XCUM.OSUH 
TFtWOPEJ.EO.O) RETURN 


GO TO 100 

200 CONTINUE 

THAX=TSTAPT 

WRITE 16 < 11 1 T.TSTART.XSUH.QSUM 

11 F0PHATt2X,*TTEP=*,l4,2X,*.TSTART**,Fl0.<5.2X, 

1 *XSUM=*,El2.F«2X,*0SUH=*,Et2.5» 

100 CONTINUE 

WRITE 16.12) 

12 FORMAT (/t2X»*EAlLE0 TO CONVERGE IN SHORT*) 

CA LL £ X T T 

END 



S HORT 
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pun* cnMPTi r? 

fV£F.»2fJ 10/02/73* 15.05.14. 

S'JPROUTTMr CMPT 

00000? 

000002 

000DQ? 

COMMON /CDNO!/ VL1, TS1, Cl, Fl, Ml, EMIFl , X<51 
COMMON /COMO?/ XL2, TS2, 02, F2, H2, EMIS2, XS2 
COMMON om AO/ XL3,C3,Pa,0IA0T 

000002 

000002 

QQQQQ2 

COMMON /WORK / YU TF, C, F, H , FMIF, THTN, 7F 

COMMON /VP 7X0/ VVdOOOl, PRtlOOO), ZZ(IOOO), XXdOOO, QQ11000>, 
i ....... V° (10 001 * PBdOOO). 79(1000). XEM100Q). OBdOOO). 

000002 

000002 

imnoQ2 

? VSAV(IOOO), PS/WflOOO) i 7SAV<1000), X*AV(1000>, QSAV(IOOO) 

COMMON /GASOTA/ T7, D, E* All, Bll t Oil, DFLTEE, HFG 
COMMON /PTPHTA/ TEV. OFT, Q, GAS* TP* VP. VP^S. OZ* F* CCFF *TTRP 

000002 

000002 

onnnn? 

COMMON /INTC/ MRFS, MODEQM, ZPPINT, NfMJN* NERROR 

COMMON /P TP7K 1 / 77^*0, VZFRO, PZFRO, XZERO, Q7FP0, JZERO, XTEST 

COMMON /PIPOUT/ XSUM t OSUM, *SUtf. *S_Pji . 7 FRONT * JFNO. P9F0* PPFG 

000002 

f* 

COMMON /L NG/ JST ART « JSAV, XL12, XL123 

QQDQ02 

DO IOC T=1.JFTAPT 

000004 

000007 

QQ 0012 

V7 < T ) = VSAV ( T ) 

PO(X1= D ^AVf T> 

-Z71JX=75flV(T? 

000015 

000020 

fl 03021 LOJL 

00032* 

000030 
0000 34 

xxm^xsAvm 

oocn^osAvm 

CONTINUE 
J7ERO= JSTA*7 

V7FP 0= (VSflV f JS T ART) ♦1.0E-4IM, 001 
77ERO-ZSAW ( JSTAPT) 

000037 

0000«*2 

nonnt»<; 

XZERO=XFflV < J^TBRT) 
0ZFP0=1SAV<JFTAPT) 

. P.= P S A V.I.J.ET ART) 

0000*0 

0000*2 

norms* 

CALL SATUR(P,TI) 

TST ART = T T+OFLTFE/T c V 
TMIN-JST ART _ 

0000*57 

0000*2 

JPJBMM... 

?ZFRO=PHr<T«?TftPT) 

IFIZZFPO.FO. XL1) CAU. JOTNTd,PZFRO,VZr p O,VZERO) 
TFfZZERO.GE.XLlI GO TO 200 

00007? 

000074 

000075 

TALL COWSFC (1) 

CALL PTP r 

CALL JCTNTfl **>7FRO * V ZE^O ♦ V 7E°0) 


START 
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ftflWPTl P9 fWEP.261 10/02/73, 15. OS. 14. _ _ 

ST APT 


(3001 0 0 
000100 

200 

OONTTNUF 

tFfZZERO.EO.XLI?) CALL J0TNT12, PZERO, VZEPO.VZFROI 



000 10 s 
000110 
000112 


IFfZZEP0.6£.XL12> GO TO 300 
Oft LL C0NSFC(2t 
CALL PIPE 



000113 

000116 

000120 

300 

CALL JOIVT ( 2 *°7FP0 *V7EP0 * VZEPO) 
CftLL CONSFO<3) 

CALL PIPE 



CO 0121 
000123 
000124 


TKINtsTSl 

RETURN 

END 




START 
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g frwm? 


iBum 


t 


s ,f 


rfiMPTl FP <tiFF>_ 7f>V 


1 Q/02/73* ISjJL SjJLitA 



CtmpmiTTWF START? _ _ - 

000002 

000002 

nonon? 

COMMON /CONOl/ XL1, TS1 , Cl, FI, HI, EMTS1 , XS1 
COMMON /CON02/ XL2, TS2, C2, F2, H? , EMTS?, XS 2 

COMMON /AOTAB/ XL3.C3»PA,OIAOI _ 

000002 

000002 

000002 

COMMON XL, TS, C, F , H, FMIS, TMXN, 7F 

COMMON /VP7X0/ VUdOOO), PP(1000>, ZZdOQQ), XX(LOOO), 00(1000), 

1 VR(1099). POdOOO), 70(1009). XRC1000), QB(IOOO), _ . 

000002 

000002 

iHifinn? 

2 vsftv(iono), psftvdooo), zsav(iooo), xsAvdooo), qsav(iooo) 

COMMON /GASOTA/ TZ, n, E, All, 611, Cll, OELTEE , HFG 

COMMON /PTPOTfl/ TEV. DFT, 0, GAS, TP, VR,_ VRES OZ, «, COEF , TTRP_. 

00000? 
000002 
nn no 02 

COMMON / TNTC/ NPES, MOOEOM, ZPRTNT, NPUN, NEPRO? 

COMMON /PIPTN/ 77ER0, VZERO, PZFRO, XZFPQ, QZERO, JZ^PO, XTEST 
COMMON /PTPOUT/ XSUM. QGUM. PSUM, XER, 7 FRO NT , JFNQ, PRFQ, PREG 

000002 

COMMON /LNG/ JST ART , JSAV, XL12. XL123 

nnnoo? 

0 

M«?TTF<6-ini _ 

000006 
000006 
nnno 07 

10 F0RMAT(/,?V^TTFRATTN6 IN START2M 
7*1=0 

NORFJr-1 

000010 
00001? 
nnnm 5 

00 100 T«1 , JST APT 
VV(T>=tfSAVC T) 

PPITIsPSAVITl — - - — - 

000020 

000023 

000026 

zzm = zsavt i) 
xx<T)=x^av(i) 

00(T)=0SAVm - - 

tootm 

•00034 

811(1037 

100 CONTINUE 

VSTAF>T=VSAV (JSTAPT) 

7STAPT*7SftV< JST ART) „ _ 

000042 

000045 

nnnnsn 

XSTART=XSAV ( JSTfiRT) 

OSTAPT=QSRV( JST A RT) 

P-PSftV(.JSTftPT) - - . 

000053 

000055 

000060 

CALL SATUP(P,TS;TAPT) 

T0IFF=0ELTEF/(7.«TEV) 

no ioi t=i,30 • _ .... _ ... 

00006? 

000065 

000071 

IF ( IB# EO.O ) T flIFF = ? # *TDIFF 
TFUB.EO.l) T OIF p = Tn tFF /? ♦ 

SIGN=-MO°f J _ . .. _ . . . - 


START 2 


1 311 1-6054-R0-00 



B-46 




C 


Z 

•pfc 


PUNK GflMPTI F n H'FP.?6> 1G/02/73. 15*06. 14, 

START 2 

000073 TSTftRT = Tc T!V or^<;i rjN *T0T«rF 

nnnn7fi tmtn=TSTApt 


000100 
000102 
0001 0*5 

VZF90=VSTART 

P7PRO=0HT<TSTA»TJ 

Z7F0O=7STAPT 


000107 
000111 
00011 3 

X7FR0=XSTAPT 

OZE^OOSTA^T 

J7FP0=JSTART 


000115 

00012? 

000125 

IF(Z7ER0.F0« v L 1> CALL J0TNT(i,PZFR9,VZFR0,V7ER0) 
TF (Z7E0O.GF.VL1) GO TO 205 
CALL CQNFFC ( l) 


000127 

000130 

000133 

CUL PTPF 

CALL JCINT(l,P7C:Pn,V7FR0,VZEP01 
700 CONTINUE 


000133 

000140 

000143 

TF(Z?ER0.F'>. XL121 CALL JOINT <2 »PZER0»VZERO,VZER01 
TF(ZZEP0.GF.»L12) GO TO 300 
CALL CCNSEC (?) 


000145 
000146 
nnm si 

CALL P T PF 

CALL JOINT(7,P7FPO,V7FPO,V7EPO) 
300 CONTINUE 


000151 

000153 

000164 

CALL CONSFCtXl 

CALL PIPE 

CALL TEFTF(MOPPJ> 


00016S 

000176 

000176 

*0ITF<<S,1 C > T , TC T APT, XFUH,CSUH, JENC, NOPE J 

IS FOPMA - M/, f ;X,*T=*»T , »*?X»*TSTARTa*. t Ft0.5,?X« 
1 *GAS,I.F.,XW,=*.Fl?.'i.2Y,*QSU»1s*El?.F, 


000176 

000176 

000200 

? ?X,* JFNP-*,T«‘«2X»*M0RFJ=*tTA) 

TFIMORFJ.FO.D P^TUPN 
IF (WOREJ.GT . 0) IP=1 


GO 020 3 
000205 
000211 

101 CONTINUE 

«PITEC6,201 

20 c ORMAT(/»?X,*FAJLFO TO CONVERGE IN STAPT?») 


000211 

000212 

CALL EXIT 

ENO 
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jcsTjy'- 1 ' & 

pf / <p**.rr- 

SUMX GfiHP nW itirR.7F,t 


10/02/73. IS. 05. 14 . 


__ sunpnnTTNF IZSIZ (HOPFJ) 

C TESTF TFSTS TO FIND WHETHER QSUM OR XSUM 

C I? ALL RIGHT OR NEEOS MORE OR LESS GAS CONTROL 

nitnnn* rOMHON /PTPnTA/ TFV,. OFT. Q. GAS, TP. VR, VP ES » O Z, p t CO EF t TTRP 

000003 COMMON /INTO/ NRES, MOPF0M. ZPRTNT, NRIJN, NERROR 

000003 COMMON /PTPOUT/ XSUM, OSUM, RSUM. XSR, Z^RONT, JENO, PREQ, PPEG 

nnnnn3 TFiMODEQM.FQ.11 GO TO 100 

C PRESCRIBED O MERE 

000005 TFST=QSUM-Q 

on non 7 HOREJsJL 

000010 IF(APS(TPST) .LT.PRFQ) RETURN 

000014 MORE J=t 

000015 TF< TEST »GT »Q «) P £T1P.N 

000017 MORE J=-l 

000020 RETURN 

000021 100 CONTINUE 

C PRESCRIBED GAS HFRE 


000021 TEST=XSUM-GAS 

000023 MQREJ.= 0 

000024 IFtADS(TEST) .LT.PREG) RETURN 

000030 MOPE J = 1 

000031 IF < TE S T , IT. 0.1 RETURN 

000033 MOPFJ=-l 

000034 RETURN 

000035 - JLHJB — 


, TESTF : 
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APPENDIX C 
SAMPLE PROBLEM 

One sample problem consists of a performance run for a variable conductance 
heat pipe for temperature control of NASA's Lunar Surface Magnetometer (LSM). 
The function of the LSM heat pipe, illustrated in Figure C-l , is to 

supplement heat rejection during the lunar day while shutting down during 

the night. It is a passive, gas controlled heat pipe utilizing a cold, 
wicked gas reservoir. The design details are summarized in Table C-l. 

At the "full-on" condition the boundary conditions were stated as follows: 

Heat Rejection > 4 Btu/hr 

Evaporator Temperature s 530°R 

Effective Sink Temperature = 495 0 R 

The gas front will form in the cold trap region of the radiator at the end 
of the condenser, and may extend into the main radiator. Thus, Section 1 
of the condenser (cards 5 and 10) consists of the cold trap region, and 
the main radiator will comprise Section 2 (cards 6 and 11). Note that, 
in terms of the model, the condenser is visualized as a straight tube 
with no bends; i.e., the radiator is considered one-half its actual width 
and twice the actual length. There is some error in this approach if the 
front extends into the main radiator, in that the bend section offers 
additional resistance to axial conduction, but the results will be 
conservative. There is negligible error in not using the actual condenser 
length, for the control gas occupies only a small portion of the entire 
length. 

An input form for the sample run is shown in Figure C-2. The fluid 
properties were obtained from Table 4-1. Note that the fin width (PF1) 
is slightly less than the actual radiator width in the cold trap region 
to account for the reduced area due to gaps between the fin segments. 

Using the approximation discussed in Section 4-3 (Eq. 4-4) the effective 
axial conductivity of the cold trap is calculated as follows:* 

*This approach neglects the axial conductance due to the axial metal 
felt wick inside the heat pipe. 
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(A ) f1 = AF1 = (3.18) (0.016) = 0.0509 in 2 

A „ - T- (0.25 2 - 0.21 2 ) = 0.0145 in 2 
wall 4 


CFl 


9.3 CO. 0145) 
0.0509 




4.80 


Btu 

hr-ft-°F 


The effective conductivity of the main radiator is simply the thermal 
conductivity of aluminum since there are no fin segments. Also, 

AF2 = (3.5) (0.016) = 0.056 in 2 


Because the circumferential grooves offer negligible radial heat transfer 
resistance, a wick thickness of 0.001 in. was input, which roughly 
corresponds to the average groove depth. For this reason the wick 
conductivity was assumed to be the conductivity of the working fluid. 

The axial wick was treated as an artery. 

(A c > wick = (0-02) (0.21) = 0.0042 In 2 

DART = (i«j H 
= 0.073 in . 

The effective sink temperature was input as follows: 

P0W1 = P0W2 = (0.1712 X 10' 8 ) (0.85) (495 ) 4 
=87.5 Btu/hr-ft 2 


Finally, the nominal value for the heat input was estimated using 
Eq. (4-7). 

q < (0.959) (3^18) (4.5j [(0.85) (0.1 712 X 10 -8 ) (530 ) 4 - 87.5] 
+ (0.959)(3J5)(7.5j_ [(q.85)(0.1712 X 10“ 8 )(530) 4 - 87.5] 

Q < 7.44 Btu/hr 


C-2 
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TABLE C-I 

HEAT PIPE DESIGN DETAILS 

Pi pe : 

Material : 

Outside Diameter 
Wall Thickness 
Evaporator Length 
Condenser Length 
Adiabatic Length 


Radiator: 

Material: 6061 aluminum sheet (0.016 in. thick) 

Cold Trap: N = 9 fin segments 

L = 4.5 in. 

L f = 0.30 in. 

L t = 0.2 in. 

g 

Wick Structure: 

Material: Stainless steel 

Description: Metal felt axial wick (0.21 in. X 0.02 in.) 

with circumferential grooves in the tube 
wall . 

Reservo i r: 

Type: Cold, wicked 

Volume: 0.79 in. 


Working Fluid: Methanol 

Control Gas: Nitrogen (1.26 X 10' 7 lb-moles) 


321 stainless steel 
= 0.250 in. 

= 0.020 in. 

= 2.0 in. 

= 13.5 in. 

= 3.5 in . 


C-3 
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FIGURE C-2. Sample Input, LSM Heat Pipe 
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The second sample problem consists of a prediction for the 
AH PE (Ames Heat Pipe Experiment). The pipe, illustrated in 
Figure C-3, flew on board OAO-C (Orbiting Astronomical Observatory, 
Configuration C) launched in August 1972. The pipe provides 
temperature control for the spacecraft's OBP (On Board Processor) 
platform, keeping it at 60 - 5°F despite large variations in 
environmental conditions and power dissipation loads. It utilizes 
a hot, nonwicked reservoir containing helium to control the heat 
rejection by the methanol working fluid. Axial conductivity was 
minimized by slots in the radiator fins as shown in the figure. 

Figure C-4 shows the input data for the sample run, and the 
output follows. 
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FIGURE C-4. Sample Input, AHPE Heat Pipe 
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samplf p°hp i — — 

A SHORT PI°E 

uADfiP PQF^IJPF PAPAMFTFPF 

411=14. 49000E*00 Rli=62.67170E+0? Cil=55.73082Ff 04 

FLUIO PROPEPTTE* 

HFG= 501. 0000 PTU/LB OTF^ .4470 FTFT/HR 

XMC” 32.0000 CO FXP = .biuu 




FIN PROPERTIES, CONOFNSEP SECTION NUMBE* 1 
or- ■* itnn TU irt .0510 CO IN CF= 4. *000 

BTU/HPFTR 

FF* .0600 

EMI S = .0500 

_HF = _ 

-0,0000 

8TU/HPFT2R 

rvki rtnr f cot tcc rnunCM^rp ^rrTTHW NUHRFP ? 

1 r i ^ — : — — — 

PF= 3.5000 IN AF= .0560 SO TU 0^=104.0000 

BTU/H^FTR 

PF= .9^00 

EMIS= .0500 

11 1 

u 

X 

-0.0000 

BTU/HRFT2P 

A0IA84TTC SECTION PROPERTIES 







OOUTA* .2500 IN. THKMS= .0700 IN. 

CNA= 9.3000 etU/HP^TP R C LA = .0010 CWKA = 

.1200 BTU/H9FTP XL0N6A= .5000 C T 



1 ' 

IPtPE properties 







OO'JT- ,?500 IN WALL THK3 .0700 IN MALL CONn= 

9. *00" BTU/HRFTP 




CONOENSER ENVIRONMENT, SEC T ION NUMBER 1 







l-rr- n t> Pf»M= 4.3700F+01 PTU/HRFTFT 

V».0NC = 

3 • 75 0 0E- 0 1 

FT 



- 

\ TI 'J » ^ ^ — 

miinr ucco r uu T Q C M M F MT - ^FCTTON N m JMRF p ? - — — 

Jf- o. <? P0W= 0.7500E+01 RTU/HPFTFT 

X10NG = 

6.2500E-01 

FT 

___ 

EXAMPLE 1 
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h 


HICK PFC P EP T T r S o C CMOTTTONS 


! WCK THK= .0010 I M WGK E0N = .1200 PUf/HPFTR 

j 

0 - APT* .0730 IN VPES = .7900 CU IN 

TRES = *95.0 R 

NRFS= 2 

OPERATING rOMOTTTOHG 




TEtf= 9.3000^*02 P 0= G.0000 r *00 pTu/H® 

90Qeqm= 1 CEV= 3.A7UGF-04 LBM0LE/FT3 

TTPA P= -0, 

R 

j 

AMD'INT PE NPNGONnENSI'»L c G 8 E 

G8G= 1 . 7?1 EF* 0? 7G8S- 1.0000E-O? C T 8G8G 

AMT= 2.008AE-07 LPWO'.e XE8G= 1.0000F-0? C T 

= -n. LRMOLF COFE= 1.1668F-09 

LBMOLE 



r 


L OjM£NSICNLr c S A TU D r Q 


TZ = l.E 327 E* 0 l TF 1 = 

TS? 

- p . 7 t*Q< 3 E- 

01 T p = 

Z.^S’lF-Ol TTPP= 0 . 



DIMENSIONLESS OCNDFNSFP PflPAMETcp Sf 

SECTION NO. 

1 




EMIS = O.SOOOE -01 n= 

1 . 7 ?niF ^01 F- 

1 . tl 59 E ~0 1 

H= 0 . 

XL = 2 . 3104 F +01 

xs= 

9 . 8 A 51 E -01 

jOtMENSIONLESS OONDENSFP P 8 PAMFTE 9 S, 

SECTION NO. 

Z 




EMIS= 8 . 5000 E -01 n= 

?. m 7 0 ? 3 E> 0 ? F- 

1 • 2293 E- 0 1 

0 . 

VL= 3 . 8507 E +01 

xs= 

6 . 7515 E -01 


dimensionless an T ft?3ATic section paqahft^^s 

CT- 6.098ABF+Q0 PA = 7.377-0 13 OIADI= 1 . 00962E*00 9= 7.37702E-03 XL 3= 3.08057E*01 


ITERATING xn PATEN 
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TTfO- 

n 

t^tART- 

.78558 

71- 59. 97288 

XL1 = 

23. 

10428 

1 « u ■ 

iter- 

. V 

1 

TSTART= 

♦ 8*5 9*7 

71= 10.13^91 


2 3. 

10428 

TTER= 

2 

TSTART- 

. 87?77 

71= 17.75290 

XL 1 = 

23. 

10428 

TTFR = 

1 

TST APT= 


71- 74.00287 

XL 1 = 

23. 

10428 — 

ITER= 

4 

tstart= 

.81350 

71= 70*08438 

XL1 = 

23. 

10428 

ITEP = 

5 

tstapt^ 

.bobb* 

71= 21.85855 

XL 1= 

23. 

10428 

rxr ps 

f* 

tstart= 

.80555 

71* 22.87404 

XL 1" 

23. 

10428 

ITERATING 

TN LCNG 






TTFP = 

n 

JSTiPT= 

1 X^UH- 

1.88?4EFfO? 

qsum= 

1.5 94?1 F + 0 0 JENH= 374 MOPE J = -1 

ITERATING 

TN SHOP! 






TTC9- 

1 

TST8PT= 

.9077* 

XSU*= 1 • 307f>4E*0? 

OSUM= 

2,0 7965E*0 0 

t- 

TTF9 = 

=_ 

7 

TSTA9T= 

,PF4"? 

VRIJM= ! .*301 OE*02 

05UN= 

1.79534E+00 

Tirr> = 

3 

TSTfl^T^ 

,p-?ri74 

VRUM* 1.77305E*02 

nsuM= 

1.554405*00 

TT^P^ 

4 

tftapt= 

• P 47*7 

X‘>U'^= 1 . 70 10 OE + O? 

OSUM = 

1.88B18E+00 

1 ITER- 

5 

tstA9T= 

.83578 

XSUM = 1.7366GE+02 

OSUM= 

1. 62534E+00 

ITER= 

8 

TIT SR T = 

.87980 

XSUN= l.’1377E+02 

QSUM= 

1.65757E*00 

TRFS = 

4 

.4510F+0? 

PE': D X 

-R = 9.5418E- 

01 


»ESGSS = 1.8048E-07 LR-MOLES 


J - 

i 

7 T K 

- 

4.8*9?r-02 

INCHES 

2 

- 

2 . 5 0 0 OF -0 1 







V 

XSUM 

QELOW 

= 

9.08F0E-0 4 
i.549FE*0? 
1.789SF-0? 

BTU/HR 

P 

OSUM 

xs 

= 

4. 544? c -*0 2 
2.7790E-03 
9.5415E-01 

T I * 
MASSFLOH = 
THICK = 

ft. 3982E-01 
9. 066ftE-0ft 
4. 4511E+02 

LB/HR 
DEG R 




TMALl 

s: 

4. 4505F.*9? 

ncc ° 

MESS 

- 

1.8 08 IE- 07 

LR-MQLES 




J = 

ii 

7TN 


5.35G2F-01 

TNCMFS 

7 

= 

?.7500Ff 00 







V 

XSUM 

OFLOH 

- 

1 . 0 734F-04 
i.5783^02 
1.553FF-01 

P T U /HR 

P 

OSIJM 

XS 

; 

4 . 91 33E-0 2 
3.1069E-02 
9.5149E-01 

TI = 
MASSFLOH - 
THICK = 

8.422SE-B1 
1. D713E-06 
4« 46405*02 

LB/HR 
DEG R 




tnall 

= 

4.463* r *0? 

PEC 9 

nr,AS 

- 

1.3412E-07 

LB-MOLES 




1 - 

7 1 

7 T N 

= 

1.0225F +00 

TNCHFS 

z 

- 

5.2500E*00 





r^ 

i 

i 

.. .LA 

V 

XSUH 

RFLOW 

— 

2.4882E-04 

1.6060E+0? 

3.09E7f-fli 

PTU/HR 

p 

OSUM 

XS 


5.5301F-02 

6.193^-0? 

9.4338E-01 

TI = 
MASSFLOW = 
THICK = 

8.4894E-01 

2.4833E-06 

4»4994E*02 

LB/HR 
DEG P 




TWALL 

= 

4.4989^*02 

D C G 9 

MOAS 

- 

1.873 9F- 07 

LR-MOLES 




j - 

31 

7T N 

_ 

1.50 or .E*00 

INCHES 

Z 

- 

7.750 DF>00 





x — 


V 

xsu* 

32 

5. 0925F-94 
1.F734P+02 


P 

OSUM 

- 

7.3405E-02 

9.305FF-0? 

TI = 
MASSFLOH = 

6.6044E-01 

5.0823E-06 

LB/HR 
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4? 


52 


62 


72 


A3 


94 


95 


ortnu ^ *.9n»« c -oi ptu/hp 

TMtVLl = !i € 5«^*92 ^r, p 


XS = 0,36645-01 TMTCK = 4t56 0 3E..t02_nfT_P. 

MG US 1 .9*59^-07 L9-M9L5S 


71 ^ - 2.0451F+QQ INCHES 


2 =1 1 .Q6Q QC + 01 

v"= 1.1795^-07 P = 1.13635-01 

XSU* * 1.6622EA02 OSUM = l‘^2«r'nJ 

OFLOW = 7.39S1E-Q1 BTU/HP *S - — 8.6846E-01 _ 


TT s 8.7999E-01 
MASSFLOH - 1.1772E-0S LB/HP 

THICK = 4.662BF+02 QFG P 


THALL 


L.f621 c *02 OFG P 


HG4S = 1.9394E-07 LR-MOLES 


ZIM = 2.S328EH1CI INCHES 


Vs 2.91F9E-03 
XSUK * I.G862E+0? 

OFLOH = 1.0395F*00 STU/HP 

THAU. = 4.7°67E+02 CFG P 

7IN a 3.9ift9F»oo INCHES 


z - 1 ,3000F«-01 

p“i 1.993BE-01 
OSUM = 2.07SOE-01 

XS = B.1279E-01 


TT^ 9.0S1GE-G1 

MASSFLOH = 2.9111E-05 LB/HR 

THICK = 4.7974E*Q2 PEG P 


~~MGAS - 1.9S74F-0 7 LB-MOLES 

Z s l.SSOOF+Ol 


V~ 9.4322F-03 

XSUH a 1*70F2E*02 
OFLOH a 1. 4444E»08 9TU/HP 


4.3650F-01 
qSUM = 2.8888E-01 

XS = f>»3G79£ -0 1 


T H4Lt = 4.9*1 3F«-02 BEG P 


MG4S = 17990TE-07 LB-MOLES' 


TI = 

MASSFLOH = 
THICK = 


9.40 lSE-dT" 
9.4134E-0S LB/HP 
4.9328E+02 PEG P 


ZIN s 3.S0S*F+0Q INCHFS 
V - 7.3376E-02 


XSUH a 1.7179E*0? 

OFLOH = 2.0113 E+00 BTU/HP 


Z = i.flOOOEtOl 

F~^ 1.S747E + 00 

OSUM = 4.0226E-01 

XS = 2.012BF-01 


THAU. = sT2?36Ft0? BEG P 


MG AS = 2.0045E-07 LB-HOLES 


TT^ 9 . 8S99E- B 1 

HASSFLOH = 7. 3230E-04 LB/HP 

THICK = 5.2257F+Q2 PEG P 


7IN = 4. *141 FF+CO INCHES 

“S S.f 11 "IF -01 


z = 2 • 0 7 50E* 0 1 

“p“S 1.9487F + 01 


XSUM = 1.71"^ e +9? 

OFLOH = 2.8C7*r»QQ 9TU/HP 


THAU. = 5.?°77F*0? CFG P 


OS'JM a ‘j.GISTE-Ol 

XS = 3.349 5 c -09 

MGAS S 2.00SSF-07 - LB-NOL^S 


TT - 5 i. noaoE+'J’i 

HASSFLOH a 5 . ROQFF-!) 3 L9/H° 
THICK = S.300QF+02 nFG p 


ZIN = 4.5487F+QQ INCHES 

V'a 7. 05S5F-01 


Z = 2.3354E+D 1 

“F^ 4.696aE*0iT 


XSUM = 1 . 7188E*0? 

OFLOH = 3.S?93E» 0 0 8T11/HP 

‘ THAU~ 5.29°0 f + 0? OFG B 


OSUM = 7.0S87E-01 

XS a o. 


TI s 1. OOOOE + O 0 

MASSFLOH a 7.0414E-03 LB/HP 
THICK = 5.3000E+0? DEG R 


ZIN = 4.f?74F*00 INCHES 


“MG AS = 2.00SFF-07 LB-MOLfs 

Z = 2.3S04E+01 


“V^ 7.1177E-U1 

1 * 71 AAF+O? 


4.9902E + 01 
OSUM = 7.1209E-01 


TI = 1. OOOOE+OQ 


MASSFLOH = 7 . 10 35E-03 LB/HP 


1 31 11 -6054-R0-00 



C-13 




ofiom 


3*5F04E*00 

BTU/H9 

xs 


0* 

THICK = 

5.3000E+02 

DEG R 



TWALL 

3 

5.29 o, JF*02 

OFG 9 

HG AS 

r 

2.0055E-07 

LO-MOLES 



J = 

104 

ZIW 

_ 

5.0356F+00 

INCHES 

I 

= 

2.5854E*01 






V 

- 

7 » 6775F-G 1 


P 

3 

7.7463E+0I 

ri = 

1. O0QOE*0O 




XSUN 

- 

1.7183F+0? 


QSUM 

3 

7 • 6 80 7E—0 1 

MASSFLOW = 

7*8E21F-03 

LB/HP 



QFLOW 

- 

3.»403E*00 

RTU/HR 

XS 

= 

0. - 

TWICK = 

5.3008E«-02 

BEG F 



TWALL 

- 

9.299nF+0? 

opr, p 

M 0 AS 


3.0055F-07 

LB-MOLES 



J - 

114 

zta 

- 

5.S22 C >F^00 

TMCMFS 

7 

— 

2 * 5 354E + 0 1 






V 

- 

8.2994F-01 


P 

3 

1.10S3E+02 

TT - 

l.OOOOE+QO 




XSUW 

- 

1.7ifl3E+0? 


OSUM 

3 

8.3025E-01 

MASSFLOW = 

8.2829F-03 

LB/HD 



OFLOM 

- 

4.151 3E + 0Q 

PTU/HP 

xs 

3 

0 • 

TWICK = 

5.30QQEMJ2 

OEG R 



TWALL 

- 

5.2990F+P2 

DFG R 

MGAS 

3 

2.0055F-07 

LB “HOLES 



J ' 

134 

7T* 

_ 

6.0D95F+00 

INC NFS 

Z 

- 

3.0854E+01 






V 

- 

8.921 4F-01 


P 

3 

1.461AE+02 

T I = 

l.UOO0E»OO 




xsum 

- 

1.7188Ff02 


QSUM 

3 

8.924BE-01 

massflow - 

8* 90 35E -0 3 

LB/HP 



OF LOW 

s 

4.46Z3E+00 

PTU/HP 

xs 

3 

0* 

THICK = 

5*3000E»QZ 

OEG__R 


* 

TWALL 

= 

5.29 Q OF+0? 

OFG P 

MGAS 

- 

2.0055E-07 

LB-MOLES 



J = 

135 

7TK 

_ 

6.5451F*nO 

INCHES 

z 

= 

3.3604E+01 

' 





V 

-J 

9.5056E-«1 


p 

3 

1.8836F+02 

TI = 

l.OOOOFfOO 




XSUM 

— 

1.7188F+02 


OSUM 

3 

9*5088^-01 

massflow = 

9*5fl64£-03 

LB/HP 



OFLOW 

- 

4.8n44E+00 

"T1J7HR 

YS 

- 

0. 

THICK * 

5. T000F + 0 2_ 

deg r 



T'MLL 

= 

5 . 29° 0 r ♦ H 2 

D r r p 


- 

2* OP55E-0^ 

L R -^OLE^ 



J = 

145 

7TK 

_ 

7.0‘ , 2H c *'3n 

INCHES 

7 

- 

7 »sn^ + n 






V 

- 

1.02?‘5F + I 31 


P 


7.7941F+Q? 

TI = 

1 .OOOOE*Od 




XSU* 

= 

t.71P« r +"? 


OSUM 

= 

1.0?3tF+on 

MASSFLOW = 

1.0707F-02 

LB/HP 



O^LOW 

- 

5. ltP«»F»0P 

PTU/HP 

xs 

3 

0 « 

TWICK =“ 

5-3000F+02 

OFG R 



TWALL 

= 

5.?990E*P2 

DEG P 

MG AS 

= 

2.0055F-Q7 

LB-MOLES 



J = 

155 

7TK 


7.51R9F+00 

TNCHES 

7 

= 

3.8504E+01 






V 

- 

t.oe50F>nn 


P 

3 

2»7304E+02 

TI = 

~ ' 1.0000E + 00 




XSUM 

- 

1.71*8E«-02 


QSUM 

3 

1 • 0 *5 3E* 0 0 

MASSFLOW = 

1. 082RE-0? 

LB/HP 



OFLHW 

- 

S.4264F+00 

RTU/HR 

xs 

- 

0* 

TWICK = 

S.300SE*02 

0 EG R 



TWALL 


5.2990E+02 

DFG P 

MGAS 

— 

2.0055E-IJ7 

LS-MOLFS 



J = 

155 

7TK 

— 

S.OOMEtOO 

INCHES 

7 

= 

4. 1104E+O1 






V 

= 

1.1472F+00 


P 

r 

3.1924F*02 

TI “ 

l.OOOOE^OO 




XSUM 

• 

1.718*E*0? 


QSUM 

= 

1 .1475FHJ0 

MASSFLOW = 

1.1449F-02 

LB/HR 


13111-60 54-R0-00 


C-14 





OFLOM = 

5.7374E+00 

9TU/HR 

xs = 

0. 

TRICK « 

5.3000E+02 

OEG R 




TMIVLL = 

S.2990F+0? 

n EG ? 

MG AS = 

2.0T5FF-07 

LB-MOLES 



J 

= 

176 

7TN = 

8.5415F+00 

INCHES 

7 ~ 

4.3354F*01 




j 



V = 

1. 21F6EM50 


P * 

3.7303F*02 

TI = 

1.0000E»00 


1 



XS'JM = 

1.7t*8F*0? 


OSUM = 

1.2159E*00 

MASSFLOH = 

1.2131E-02 

LB/HP 

1 



OFLOW ‘ 

6. 07<?4*>OO 

otu/HR 

XS a 

0. 

THICK = 

5.3000E+02 

OEG P 




TWfttL * 

5.?9R0F+n? 

9FG R 

HGAS = 

2.00EEF-07 

LR-MOLES 



J 

= 

136 

T TN = 

9. o?*ur«>nn 

TMCHF9 

Z = 

4.6354FF01 




r - 



V = 

1.277*Ff00 


P = 

4.2464F*02 

TI a 

1* QOOQEtOO 





XSUM = 

1.71 R*f *9? 


OSUM « 

1.2781F+00 

MASSFLOH a 

1 . 2752E-0 2 

LB/HP 

i 



O^LOW = 

6.39H4F + ™ 

RTU/HR 

XS = 

0. 

THICK = 

5 • 3 O00E >02 

OEG R 

1 XI 



TH'tLL = 

5.?9 o 0Fm7 

OEG R 

MGfliS = 

2.005GF-07 

LB-MOLES 



J 

= 

196 

7TN = 

g.^t^F+og 

IMCHFS 

7 = 

4.995 4F+0 1 




r 



V = 

1.34O0E*OO 


P = 

4.7883EMJ2 

TI a 

1* OOO0E*0O 


! 



XSUM = 

1.7139F+0? 


QSUH a 

1.3403E+00 

MASSFLOH = 

1.3373E-02 

LB/HR 

L 



O^L^H - 

6.7014F+Dn 

R T U/HR 

XS = 

0. 

THICK = 

5.3000002 

DEG R 




TMflLL = 

<5.299 0F + <J? 

REG R 

MG AS = 

2.0055E-07 

LB-MOLES 




_ 

206 

71 N = 

1. 00n?F*01 

TNCHFS 

Z = 

5.1354E+Q1 




! 



V - 

1.402?F*Q0 


P = 

5.355^*0? 

TI = 

1. ODOOE^OO 





XSIJM a 

1.71**F*0? 


OSUM = 

1 • 49 75F+0 0 

MASSFLOH = 

1 . 3994E-Q2 

LB/HR 




OFLOW - 

7. oiZ4 r +on 

9TU/HP 

XS * 

n. 

THICK = 

S. 3000E+02 

OEG R 




thull = 

5.?9^3 r *n7 

9FG ° 

MSftS - 

?.mE?F-o T 

L9-MOL r S 



J 

_ 

217 

7TM = 

1. n c 73F + fU 

T NF.HFS 

7 = 

F.4104F+01 




! — 

— 


V = 

1.47Q6F+0H 


P = 

6.0099F+02 

TI = 

f. OO0DE»OO 


i 



XSU M - 

l.M **F»02 


QSUH = 

1.47C9F+Q0 

MASSFLOH = 

1 « 4676E-02 

ta/HR 

L 



OFLOH = 

7.3545F+00 

RTU/HR 

XS = 

0. 

THICK = 

5.3000E^02 

OEG fi 




matt = 

5°?q°oF+o? 

C r G R 

MGAS = 

2.00 5FF- 0 7 

L9-MOLES 



J 

- 

227 

7 I N = 

i. io?f c +oi 

INCHES 

7 = 

5.6604F* 01 







V* = 

l.S3? , ' c *00 


P a 

6.6315F+02 

TI * 

1. OOOOE+OO 


1 



XSUM = 

1.7J88F-H12 


QSUH - 

1 .6 33 1F+0 0 

MASSFLOH = 

1.5297E-02 

L9/HR 

L 



OFLOW = 

7 . 6655E+00 

PTIJ/HR 

XS = 

0. 

THICK = 

5.3000E+B2 

OEG R 




TWALL = 

S.?S90F + |J? 

DEO R 

MGAS = 


L9-M0LFS 




- 

237 

71N - 

1.1912FF01 

IMOHFS 

7 = 

9.9104E+01 




i 

— 


V = 

1.5°5i)F*nO 


o = 

7.2789FMJ2 

TI = 

i.0000E*00 


i 

i 



XSUM - 

1 .7188^*02 


osum = 

1.5953E+Q0 

MASSFLOH = 

l.S9t8E-02 

LO/HR 


13111 -6054— RO-OO 


C-l 5 


'I— 


OPLOW = 

7. q/esr+no 

PTU/HP 

xs = 

0. 

THICK = 

S.3000E+02 

OFG R 

1 


TW*L<. = 

f , ?q° o r 

DEC, *> 

MG A S = 

2.0005E-07 

LO-MOLFS 



J = 

?t*q 

7TN - 

i.zo4<^+oi 

INCHES 

Z = 

f>. 1"I61E + 01 




1 


V - 
XSU M = 
ortnw = 

1.KR74F400 

i.7t«OF40? 

0.2A87F+00 

e T u/HP 

P = 
QSUM = 
XS = 

A.07Z7FT+0? 
1 ,SG77F*0<5 
0. 

T I = 
MASSFLOH = 
THICK = 

1* OQOOE+DO 
1.65<*0E-02 
5.3000E+02 

L8/HR 
OEG R 



T'lfllL = 

s. Tonn^ + 'j? 

Off. O 

MGAS = 

?• OOS5 C -0 7 

LR-MOLF$ 



J ~ 

?50 

7J*t - 

1 .20O7F4.I11 

INCHES 

7 = 

*.2111f*01 




! — 


V 5 
xsum - 

OFLOW = 

l. 6574**00 
1.71ftft r +02 
ft* ?ftftTF+0P 

0T*J7HP 

P - 
OSOM = 
XS - 

8.09 1TF+07 
1 • 6S77F + 0 0 

0. 

TI = 
HASSFLOH = 
THICK = 

1. 0000E4Q0 
1.6540E-02 

5.3000E4Q2 

LB/HR 

DEG R 



TWALL = 

F. 3Q0SF*0? 

OFO P 

MGAS = 

2.005OF-07 

lh-moles 



j 


71 N - 

l.?5TF r ttJl 

TNCMFS 

7 = 

F . <*36 1 E4 0 1 




r 

r 


V = 
XSUK = 
OFL0U = 

1.F574FOO 
1.71B8F+0? 
ft .78ft7F+O0 

BTU/HR 

P = 
OSUM - 

xs = 

8.7H87Ff07 

1.6577F+00 

0 . 

IT = 
HASSFLOW = 
THICK = 

1.0000E400 

1.6540E-02 

5.300QE+02 

LB/HR 
DEG R 



TWA t L = 

S.TPftOF+o? 

D^G » 

MCHS = 

2.0H55F-07 

lr-hcles 





7 IN = 

l.TnpTffni 

INCHES 

7 = 

f . 68 * 1 F*D 1 




f— 


\t = 
ysn* r 
OFLTW - 

i.6F74F+nn 
1 . 71 MF +02 
ft .?Rft7E^nn 

rth/hr 

P = 
OSUM = 

xs = 

9.T94SF+07 
t .6577F*00 
0, 

TI ^ 
HASSFLOW = 
THICK = 

1.0 OOOE + O!) 
1.6540E-02 
5.3000E402 

LB/HR 
OFG R 



TMM.L = 

5. 300 0E4P? 

npc p 

MGAS = 

2.0055F-07 

LB-MOLES 



1 - 

770 

77N - 

1 .3S0' : >E401 

TNCHFS 

7. - 

F.93ftlFf 01 




j 


V = 
XSUM * 
OFLOW = 

i.FG74F*nri 
1.7 1 ftftF + 0 ? 
ft. 288^*08 

RTU/HP 

P = 

OSUM - 

xs = 

1 • 0 0 8 IF* 0 3 
1.6577F*00 
0. 

TI * 
HASSFLOW = 
THICK = 

l.OOOnEMlO 

1.6540E-02 

5.3000E+02 

LB/HR 
OFG R 

' 


tviall - 

s. 30 oof40? 

OFG p 

MGftC = 

2. 005GE-07 

LR-MOLFS 




?q0 

7T N = 

1.404SE401 

TNCHFS 

7 = 

7.2111E*01 






V = 

xsuw * 

OFLOW = 

1 .GS 74 F 400 

1.71MF402 
«.?an3f 400 

0Ti)/HP 

P = 
OSUM = 

xs = 

1.083GE4-03 
1 .6577E+00 

0. 

TI = 
HASSFLOW = 
THICK = 

1. 0000E + 00 
1.6540E-02 
5. 3000E«-02 

LB/HR 
DEC R 



T W ALL ^ 

s.sonoE+o? 

0 C G P 

nr, is = 

2.00555-07 

lr-molfs 



1 — 

3f]0 

7 T N = 

1.4S32E401 

TNCHFS 

7 = 

7.4611Ef 01 






V = 
XSL f M = 

1 . 6574 c *-00 
l.7tP*E40? 


P = 
OSUM - 

1.1S22P403 

1.6577E+00 

TI = 
HASSFLOW = 

1. OOOOE*BO 
1.6540E-02 

13/HR 


: ____ — *'-*• 

! 


13111 -60 54-R0-00 
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OFLOH 


**2*$3F+Q0 

BTU/MR 

xs 


0* 

THICK = 

5*300 0E +02 

OEG P 




tma ll 

= 

5.3000F+0? 

nFG ? 

MG AS 

— 

2.D055E-07 

LQ-MOLES 



J 

• 

310 

7IN 

- 

1.5O19E+01 

INCHES 

7 

— 

7 # 711 IE* 0 1 




r~ 



V 

- 

1.6574F+00 


P 

s 

1*220 OF + 03 

TI = 

1. 0000E+00 


\ 



XSUM 

— 

i.7ia*E+<}2 


QSUM 


1 . 65 77E + 00 

MASSFLOM = 

1.8540E-02 

LB/HP 




OFLOM 

s 

8.2883F+00 

STU/HP 

XS 

= 

0. 

THICK = 

5.3OO0F+O2 

OEG P 




THALL 

s 

5,3lin0F + 02 

nFG R 

HG AS 

— 

2*005 5E -07 

LB-HOLES 



J 

_ 

320 

ZTK 

- 

1.S50EF+01 

INCHES 

7 

r 

7 * B611E ♦ 0 1 





— 


V 


1 * G574F + O0 


P 

= 

1.2894E+03 

TI = 

l.ooaoE+oo 





xsum 

SE 

1.7188E+0? 


QSUM 

3$ 

1 . 6577E+00 

MSSSFLGH = 

1 « 6540E-0 ? 

L0/HP 




QFLOH 

- 

8.2883E+00 

9TU/HR 

xs 

=: 

0. 

THICK = 

5. 3000E+02 

DEG R 




THALL 


5.3000E+02 

OFG P 

HG AS 

— 

2* 00 55E-0 7 

LB-MOLES 



J 


331 

71 N 

- 

1* 60 41 E + 0 1 

INCHES 

Z 

= 

8.2 3G1E+0 1 





— 


V 

- 

1-6574E+00 


P 

- 

1 • 3640E+O3 

TI ^ 

1* 0 0 00E *0 0 





xsuw 

- 

i*7l*aE+02 


QSUM 

8 

1.6577E+00 

massflow = 

1.6540F-02 

L3/HP 




OFLOH 

- 

8.2883F+0O 

BTU/HP 

XS 

8 

0* 

THICK - 

5.3000F+02 

OEG R 




THALL 

- 

5*3000^*02 

OFG R 

HG AS 

= 

2.0055F-07 

LB-HOLES 



J 

* 

341 

71* 

r 

1 • 6^?5F*0 1 

INCHES 

7 

— 

8.48S1E+01 





— 


V 

S 

1* 6574F+00 


P 

8 

1* 433 5F + 03 

TI = 

1* 00 OOE + O 0 





XSUM 

- 

i.7ift*F+02 


OSUM 

8 

1.6577E+00 

MASSFLOM 

1 • 6540E-02 

LB/HR 




. QFLOH 

- 

8.?ft*3E+00 

BTU/HP 

XS 

8 

0* 

THICK = 

5* 3 0 00F + 0 2 

OEG P 




twall 

- 

5.3000F+H? 

OFG P 

MG AS 

— 

2*005 5F -07 

LB-HOLES 



J 

_ 

351 

71 N 

= 

1* 7015F+01 

INCHES 

Z 

21 

A • 7361E * 0 1 





— 


V 

- 

1.6574E+00 


P 

- 

1*502 IF +03 

TI = 

1. OOOOE+OO 





XSUM 

S 

1.7188F+0? 


QSUM 


1 * 6577E + 0 0 

NAS5FL0H = 

1.6S40E-02 

LB/HR 




OFLOH 

= 

8.2B83E+00 

9TU/HR 

XS 

= 

0. 

THICK * 

•5.3000E + 02 

OEG R 




TWALL 

r 

5*30005+0? 

OFG R 

MGAS 

= 

2 • 00 55E-07 

LB-MOLES 



J 

_ 

361 

71 N 

— 

1 • 750 2E + 0 1 

INCHES 

7 

= 

6* 9061F + 0 1 







V 

r 

1.6574E+00 


P 

r 

1.5707F+03 

TI = 

1* 0 0 OOE + 0 0 





XSUM 

- 

1.7188E+02 


QSUM 

s 

1 . 6577E+00 

MASSFLOM * 

l*6540F-O2 

LB/HR 




QFLOH 

- 

8.2883F+00 

BTU/HR 

XS 

= 

0. 

THICK = 

5*300 OE *02 

OEG R 




THALL 

ss 

5.3OO0P+O2 

OEG R 

MG AS 

• 

2.00 55F-0 7 

LB-MOLES 



J 

_ 

372 

7IN 

- 

1.B0POF+01 

INCHES 

7 


9.2417E+01 





— 


V 


1.G574E+00 


p 

- 

1.S408E+03 

TI = 

1. OOOOE+OO 





XSUH 

- 

1.7184E+02 


OSUM 


1.6877E+00 

MASSFLOH = 

1.6S40F-02 

L8/HP 


1 311 1 -6054-R0-00 
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ii 


! S A MPL F „ 

~ FTONf. H r AT dtpf 

VAPOR PRF SSIIgF FHRHWETFPS 

j All=14.4ft000E»0Q Btl-Fg.f?170F»n? Cltg < >S.73A9g£*04 ^ ^ 

FLUID P90PFPTtES 

| HFG= 501. 0000 BTU/LB nTF= 1.7700 FT*T/HR XMC= 3?. 0000 CD EXP= .9100” 

i 

FTN PROPERTIES, CONDENSER SFCTTON NUNUE* 1 

pf - 11^.3000 TN flF= .4990 SO IP CF = .5450 BTU/HPFTR EF = .QSQO EHIS = .7900 HF= -0.0000 BTU/HRFT2R 

1 ' “ 
r 

j FIN PROPERTIES, CONOENSFR SFCTiqm nU>10EP ? 1 

pr= 14,3000 IN AF = .<*580 C G IN OF- 1.1000 BTU/HPFTR E-- .3900 FHIS= .7500 HF= .<*800 8TU/HRFT2R 

f ~ 

| AOIARATIG SFCTION PPOPFR t TEF 

1 OOUTA- .4370 IN. THKHA- .0 300 IFU ” 

CW^= 5.5100 PTU/HRF TP DFL A= .0052 CWKA = . 0900 BTU/HRF^R XLONGA* .3000 FT 


•PIPE PROPERTIES 


OOUT= .4370 IN WALL THtc= .0390 IN WALL 

C ONO = 

6.5100 BTU/HPFTP 


CONDENSER FNVTRCNMENT, SECT ION NUMBER 1 

iTc = 0. R POW= 4.?700F*ril RTU/HRFTFT 

XLONG^ 

2.5000E-01 FT 


r.ONOFNS^R F NV IP^NNENT • SECTION NUMBER 2 

TF= 5. 4400F + 0 2 P POW = 4.230QE+01 8TU/HRFTFT 

XLONG= 

1 . 9600E* 00 FT 

EXAMPLE 2 


13111-6054-R0-00 
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WICK PR CPF^ T I r ^ * MO PF^ rp VOTP rCNDITTONS 


; XC< THler To bs? tn wo l T c o N = .0900 RT'u/HPFTP 0-ART= .2050 IN VRES= 11.2000 CU IN TRES* 539.0 R NRES= 

i 


OPERATING CONDITIONS 

TFV= 9.^t>nnP43? P 0= S.nCOOF+an PTU/Hff MOnFOM= 1 CEV= 4. 444 ?E- 04 LBH0LE/FT3 TTRftP= -0. 5. 


■AM QM O P NnNCONOFNSI OLE GAS 

GftS= 7.0804E+P? ?G«S= 1 . 000 (?c + oo rT 604*=:= -0. 

aht= 3.5530F-O6 irhoi.e *Gfls= i.oqoof »00 r T 


LRMOLE C0EE= 5.0 1BQE-09 LBMOLE 


■DIMENSIONLESS TrHPF 90 TURFS 


T3 r- t.59«.5r*01 TS1 = 7.RO18E-01 TS?= «.9ftA3E-01 TP= 1.0000E+00 TTRP- 0. 


: DIMENSIONLESS CONDENSER PBRANFTfPS. SEOTTON NO. 1 
£M|3= 7.5000^-11 1 .556 IFt-0 1 E = 7.1261E-01 H = 


^XL = 1.0282E+01 XS= 9. 8558E-01 


'DIMENSIONLESS CONDENSER PARAMETERS. SPOT I DM NO. 2 

^FMTS= 7 - 5 nnnr-ni R* 7.«.3«™>0t ^ 7.4614F-01 H- i . 7 9Q4E + 0Q 7L= 8.060 7 F+01 XS= 5.2861E-01 


ntMFNSTONI FSS AQIARATir SECTTON PA°6METERS 

• p3 = e.07S6BF*OO RA = !.<>794?E-0? 01407= 1 . 02916E* 0 0 R= 1.93942E-02 XL3= 1.23378E*0t 


ITERATING IN PATCH 


00-0^-17509- L L L£ L 



C-20 


l| 


ttrfK 

n 

T^TARTs .79066 21= 22.37307 XL1 = 10.28154 





1 1 

ITE9= 

ITER= 

TTCO- 

1 

2 

■ TSTART'S .84474 Zl = 3.43817 XL1 = 10.28154 

TSTART= .81769 71= 6.38581 Xll = 10.28154 

TSTAPT= .80417 71= 9.15265 XL1= 10.28154 





ITER- 

ITER^ 

~k 

5 

TSTART= .79741 21= 11.84004 Xtl- 10.28154 

TST ART= .80079 21=. 10.28317 XL1= 10.28154 





ITERATING 
ITEP = n 

rrrn- 4 

TN LONG 

JSTARTs 1 XSUM= 6.79337E+02 

»STAPT= 207 YSUM= 7.2907?F*02 

OSUH= ? . 392 00E + 01 
QSUM= 7 . 54485E*00 

jFHO= 423 MORE J= 1 

JEND= 422 MORE J= -1 




1. 1 L 

ITER 51 

ITER= 

TTFP— 

X 

“2" 

3 

b 

JSTART= 104 XSUH= 7.05382E+Q2 
JSTART= 155 XSIJM= 7.17112E+02 
j«5TART= 129 XSUM= 7.U132E*02 

QSUM= 1.54601E+01 
QSUM= 1.15409E*01 
OSUM= 1 • 35389F+01 

JENO= 422 MORE J= 1 

JENO= 422 MORE J= -1 
JENO= 422 MORE J= -1 




ITF9 = 

S 

JSTA»T= 116 XSUM= 7. 08142F + 07 

OSUMs 1. 453 79E+01 

JFNO = 422 MORE J= 0 




TPF«s s 

5 

-lonnF.n? r>FG R XSP = 9.S558E-01 PE5GAS - 3 . 3459 E-Q 6 LB-MOLES__ 




J = i 


7TN = 7.2478E-02 INCHES 

V = 2.4409E-05 

7 = Z.4837E-01 

P = 1.9035E-02 

TI = 8.0081E-01 






XS'JM = 6.6337E *02 

OFLOH = 4.5797F-1E »TU/H9 

THAU. = 4.3152F+02 OFG P 

OSUN = 9.1593E-16 

XS = 9 . 80 99E-0 1 

MG AS = 3.3288E-06 

MASSFLOH = 2.4360E-07 

THICK = 4. 3164E *02 

lb-moles 

UJ/nr 
DEG R 


ii 

•> 


214 = 5. 1015E-01 INCHES 

V = 1.8074E-04 

Z = 1.7484E*00 

P s 1.9529E-02 

TI = 8. 0183E-01 




i 


XSUH = 6.6E21E+02 

OFLOH = 8 .7089E-02 Q TU/HR 

THALL = 4. 3206F *0 2 0EG P 

OSUM = 1.7418E-0? 

XS = 9. 8049E-O1 

Mf.AS = 3.338 0E- 06 

MASSFLOH = 1.80 38E-06 

THICK = 4.3219E*02 

LB-MOLES 

OFG 9 


J * 14 


ZIN = 1.0208E+00 INCHES 

V = 4. 3048F-04 

7 = 3.4934F+0 0 

P = 2. 1224E-02 

TI = 8.05165-01 






XSUH = 6. 6734E *02 

OFLOH = 2.0851F-01 BTU/HR 

TWILL = 4*3^8?E+02 OFG 9 

OSUH = 4.1702E-02 

XS = 9 . 7377F-0 1 

MG AS = 3.3487E-06 

MASSFLOH = 4.296PE-06 

THICK = 4. 3398E+02 

LB-MOLES 

DEG R 


J = 21 


ZTN = 1.5314F+00 INCHES 

V = 8.7251E-04 

7 = 5.2484E+Q0 

P = 2.4794E-02 

TI = 8.1145E-01 


a r> 




XSUH = 6.6946E+02 

OFLOH = 3.7526E-01 8TU/MP 

THALL = 4 . 371 3E *0 2 OFG B 

QSUM = 7 • 5051F-0 Z 

XS = 9. 751 t 'E- 0 1 

MGAS = 3.3594E-06 

MASSFLOH = 8.7Q77E-06 

THICK = 4. 3737E+02 

lb-moles 

OEG R 


J = 28 


ZTN = 2. 0420E+00 TNCHES 

Z = E.9984F+00 






J 


2.04?OE*00 INCHES 


Z 


6. 9984E+00 


13111-6054-R0-00 



C-21 


ii 


L 



V 

- 

1 • 81 87F-C 3 


P 

— 

3.200SE-02 

TI 

= 

8.2197E-01 





XSUM 

- 

E.71S4E+02 


QSIJM 

= 

1.2467^-01 

HASSFLOW 


1.8151E-05 LB/HP 





QFLOW 

= 

6.23n^«"-01 

9TU/HR 

XS 

- 

9.67R5F-01 

THICK 

= 

4.4304E+02 DEG 9 





TWALL 

- 

4.42E AE + 02 

OEG 9 

MG AS 

- 

3.36S8F-06 

LS-MOLES 




J 


35 

7TM 


2.5526E*00 

INCHES 

7 

- 

8.7484E+00 








V 


4.26HE-0T 


p 

- 

4.7T29E-02 

TI 


8 . 3889E-Q 1 





XSUM 

- 

6.73F T F*0? 


OSUH 


2*017 OF- 0 1 

MASS FLOW 


4.2S33E-05 LB/H9 





OFLOW 

= 

1. O8R5F+0O 

OTU/HR 

XS 

- 

°« 5711F-0 1 

TWICK 

- 

4.S216E*02 OEG 9 





twall 

rr 

4.51S9F+0? 

0EG 9 

MG AS 

= 

3.3800F-06 

LB-MOLES 




J 


42 

7TN 


3.10236+90 

INCHES 

7 

r 

1 • 0 632F + 0 1 








V 

— 

7.0463F~CI3 


P 

= 

8.7*446-02 

TI 

= 

8.6S74E-01 





* XSUM 

= 

6.76FTF*!)? 


OSUM 

= 

2.7560F-01 

HASSFLOW 

- 

7 • 0322E-0 5 LB/HP 





OFLOW 

- 

i.37roe+oo 

9TM/HP 

XS 

= 

9 • 130 PE- 0 1 

TWICK 

~ 

4.6663E+02 OEG P 





TWALL 

- 

4.67*8F+0? 

OEG 9 

MG AS 

= 

3.3948E-06 

lr-moles 




J 


43 

7IK 

_ 

3.1753E+00 

INCHFS 

Z 


1.08826*01 








V 

= 

6.8701E-03 


P 


9.3154E-02 

TI 

= 

8.6838F-01 





XSUM 

- 

6.7679F+0? 


OSUM 

= 

2.5394E-01 

massflow 

~sT 

6 • 8564E-0 5 LB/HR 





OFLC1M 

= 

1.2697^+00 

PTU/H9 

XS 

- 

9.0RG6F-01 

TWICK 


4.6806E+02 OEG P 





twall 

- 

4.6R93F+9? 

DEG R 

MG AS 


3.3961F-06 

LR-MOLES 




J 



48 

7TN 

_ 

3.54O5E+0O 

INCHFS 

7 

- 

l. 2132E+01 








V 

r 

5.E842E-03 


P 

= 

1» 1 70 5E-0 l 

TI 


8 • 7873E-0 1 





XSUM 

= 

6.7en^+o? 


OSUM 

= 

i • 6 85 ?F- f) 1 

massflow 

= 

5.4728E-05 LB/HP 





‘ OF LOW 


8.4258^-01 

BTU/HP 

XS 


8.857FE-01 

TWICK 

= 

4* 7364F+02 OEG P 





TWALL 

— 

4. 74? ,? F + 0? 

CFG R 

MGAS 

= 

3.40? 6F- 0 6 

LB-MOLES 




J 


55 

7TN 

_ 

4.0506E*00 

TNCHFS 

7 


1 • 38 8 2E + 01 





i 



V 

- 

3.85E*;F-IJ3 


P 

- 

1.420 1E-0 1 

TI 

= 

8.8758E-01 





XSUM 

- 

6.79*Qf*o? 


OSUM 

:= 

9 • 4 7 49F-0 2 

MASSFLOW 

= 

3.848 8 E-05 L9/H° 





OFLOW 

= 

4.7374F-01 

PTtJ/HR 

XS 

r 

8.6307F— 01 

TWICK 


4.7841E+02 OEG R 





TWALL 


4.7R73F+0? 

CFG P 

MG AS 

= 

3.411 3F -06 

LB-HOLES 




J 


62 

7TN 


4.5617E+D0 

INCHES 

7 

= 

1.5632E+01 



> 





V 


2.4044E-03 


P 


1.5812E-01 

TI 

= 

8.9253E-01 





XS'JH 

= 

6. 81486+02 


OSUM 

= 

5.3191F-0? 

MASSFLOW 

= 

2.3 996F-05 LB/HP 





OFLOW 

- 

2.6596 E-01 

BTU/H9 

XS 


P .4^76^-01 

TWICK 


4. 81 07E + 1 2 OEG P 





twall 

55 

4.8125F+02 

DEG R 

MG AS 

- 

3.4197^-06 

LB-HOLES 




J 

- 

69 

TIM 

— 

5.0719E+00 

INCHES 

7 


1.7382E+01 






1 31 11 -6054-R0-00 



C-22 




V 

_ 

1.4278F-03 


P = 

1.67895-01 

TI = 

6* 9529E-01 



— 

xsu* 

- 

6. 


QSUM = 

2.97B6F-07 

MASSFLOH = 

1.4250E-D5 

L9/MR 



Q^LOW 


1 .M93F-01 

PTU/WR 

XS = 

B, 40716-01 

THICK = 

4.02565*02 

DEG P 



TH4LL 

= 

4. 07FBF+O? 

DEG ? 

mgas = 

3,4?BOF-06 

LB-MOLFS 



! 

75 

7JN 


5.5Q°5 ** 00 

T NC HFS 

7 - 

1.88025*01 




jj = 


V 

= 

«.«983F-i)4 


P = 

1.7295E-01 

TI - 

8.9666E-01 




xsum 

- 

f,. P.tcftf M)? 


OS'JM - 

1.80*05-02 

MASSFLOH = 

0.000 6F -06 

LB/HR 



oflow 


9. 0 15 O c -02 

nru/HP 

*S = 

0 • 3531E-0 1 

THICK = 

4. 8330E + 0 2 

DEG R 



T MALL 

- 

4. R33FF*fl? 

OFG R 

MOHS = 

3.4350E-05 

LB-MOLES 



i j - 

B ? 

7TN 


5. 0202E+OO 

INCHES 

7 = 

2. 063?F*O 1 






V 

— 

<*.55515-04 


P - 

1.7 545E-0 1 

TI - 

8. 9758E-0 1 


! 


xsu* 

- 

6.*MFf *0? 


QSUM = 

9.8G42F-03 

MASSFLOH = 

4. 9552E-06 

LB/HP 



QFLOH 

- 

4.9371F-9? 

PTIJ/HR 

XS = 

8.3?79F-0i 

THICK = 

4 . 8380E ♦ 02 

DEG P 



TMALL 

- 

4. 

0EG P 

MG AS = 

3 * 443?F- 0G 

lo-molfs 



J = 

*q 

7IN 


6.5708F*00 

INCHED 

X - 

2.2382E+01 






V 

- 

2.5R25F-04 


P = 

1.7035F-O1 

TI = 

8. 9808E-01 


1 


XSU* 

r 

6,S7^9F+0? 


nsuM = 

5.0767F-03 

MASSFLOH = 

2.5773E-06 

LB/HR 



QFLOW 

- 

2.53B4F-0? 

nnj/HR 

xs = 

R*3ii5F-0l 

THICK = 

4. 8406E+02 

DEG R 



thall 

- 

4,B4n9FfO? 

OFG P. 

MGAS = 

3.4F13F-06 

LB-MOLES 



!j = 

96 

7IN 


7. 0414E+00 

TNOH c S 

Z = 

2 * 4132FX) i 




! 


V 

- 

1.0370E-04 


P = 

i,7q?7F-01 

TI = 

8.9831E-01 


s 


XSU M 

- 

6.894^*0? 


QSUM = 

?*0784F-03 

MASSFLOH = 

1. 0350E-06 

LB/HR 



QFLOH 

- 

1. 0142E-O2 

PTU/HR 

XS = 

B . 3 0 36F-0 1 

THICK = 

4. 841 9E *02 

OEG R 



T WALl 

- 

4. *4?1E*02 

n^G P 

MG AS - 

3.4594F-0S 

LB-MOLES 



1 

!j = 

10 3 

71 N 

= 

7.5517F+O0 

TNCHES 

7 - 

?.588tE*01 




[ 


V 

- 

0. 


P = 

1.8130F-01 

TI * 

8. 9883E-01 


1 


XSU^ 

- 

5.9102F*0? 


QSUM " 

0. 

MASSFLOH = 

0. 

LB/HP 



OFLOW 

- 

0. 

PTU/HR 

XS = 

B.2861E-01 

THICK = 

4.8447E+02 

DEG P 



T HALL 

— 

4. R447F+0? 

nrc r 

MG A^ « 

3.467SF-06 

lb-moles 



! j - 

110 

7IK 


0 . 051 3 F ♦00 

INCHES 

7 * 

2.762RF+01 






V 

— 

0. 


P s 

1 . 013OE-O1 

TI = 

8. 9883E-01 

1 H'JTTH 



xsu* 

- 

“TT^TfT^T? 


QSUM * 

0 . 

MASSFLOH - 

0 « 

L9/H9 



OFLOH 

- 

0. 

PT1J7HR 

XS = 

B # 2 B 6 IF -0 1 

THICK * 

4.8447E+02 

OEG F 



THALL 

- 

4* B4* 7 F*0? 

HFG R 

MG AS = 

3 • 475FF-06 

LB-MOLFS 



i 

;j = 

117 

7 TM 

- 

8,5711F+00 

TNCHFS 

Z = 

2 • 9375F+01 





L 


13111-6054-R0-00 



C-23 




V * 

1. 1747r-04 


P ~ 

1.8322F-01 

TI = 

8* 9932E-0 1 




XSUM = 
OFL0H = 

TNALL = 

6.9424F+02 

i.e^rre-oi 

4.847?F»0? 

BTU/HR 
OFG R 

QStJM s 

xs * 

HG AS = 

7 • 317BF- 0 4 
3 • 2697F-0 1 
3.4837F-06 

MASSFLON = 
TWICK = 

lb-holfs 

1.1724E-06 L9/HR 
4.8473E*02 DEG R 


J * 

123 

71 N = 
V = 

9. 0088E+00 
2,43fl2E-04 

INCHES 

2 = 
p - 

3.D875E+01 

1.8400E-01 

TI = 

8* 9952E -0 1 




XSUM = 
OFLOW = 
TNALL = 

6.95G?f+o? 

i.36stf-02 

4.8482E+02 

PTU/HR 
OEG 9 

QSUM = 
XS - 
MG AS = 

2.7314E-03 

R.2G315F-01 

3.49Q8F-06 

MASSFLON = 
TWICK = 

lb-holfs 

2 . 4334E-0 6 LB/HP 
4. 8484E+02 nEG P 


J - 

110 

7IK * 
V = 

9.5194^400 

4.7522F-04 

INCHES 

Z = 
P - 

3.2625E+01 
1. 85S0F-01 

TI = 

8. 9997E-01 


■ 


XSUM = 
OFLON = 
TNALL = 

6.9722^40? 
3.5283F-02 
4. 350SF+02 

BTU/HR 
OFG R 

OSUH = 
XS - 
HG AS = 

7.0565F-03 

8.2476E-01 

3.4987F-0E 

MASSFLON = 
THICK = 

LB-HOLES 

4.7427F-08 LB/HP 
4.8508E+B2 REG R 


J a 

137 

7IN = 

v - 

1 • 0030F+0 1 
8.8264E-04 

INCHES 

Z a 
P = 

3.4375F401 

1.8920F-01 

TI - 

9. 0080E-0 1 




XSUM = 
QFLOH = 
TNALL = 

6.988^F^0? 

7.2295^-02 

4.3545F402 

PTU/HR 
DEG 9 

OSUH = 
XS - 
HG AS = 

1 .4459F-0? 
R.2186E-01 
3.5867E-0F 

MASSFLON = 
THICK s 

LB-HOLES 

8.810 BE- 9 6 LB/HR 
4.8553E+02 DEG R 


J = 

14* 

7TK = 
V = 

1.0541E+01 

1.6367E-03 

INCHES 

2 = 
P = 

3.6125F+01 
1. 95499-01 

TI = 

9. D231E-01 




XSUM = 
HFLOH = 
TWALL = 

7 • 094? c *-07 
1.3740F-81 
4.8624F+02 

BTU/HR 
DEG 9 

OSUH = 
XS = 
MG AS = 

2.7480F-02 

8.1653F-01 

3.5147E-04 

MASSFLON = 
TWICK = 

LB-HOLFS 

1.6334E-09 L9/HP 
4.8635E*02 REG R 


J - 

151 

TIN = 
V = 

i • 1 05 1F+01 
3-096OF-H3 

TNCHFS 

7 a 
P - 

3.7875E+01 

2.0724E-01 

TI = 

9- 05 01E -0 1 




XSUH = 
QFLON - 
TNALL - 

7*P199f407 
2*52*6^-01 
4.«7^7f +n? 

BTU/HR 
OFG R 

OSUM = 
XS = 
MG AS = 

5.0692E-02 

8.066RE-01 

3.5225E-08 

MASSFLON = 
THICK = 

LB-HOLES 

3. 090 7 E-05 LB/HP 
4.8780E+02 DEG R 


J - 

153 

ZIN ^ 
V = 

1.1662F401 
6 • 1223E-03 

INCHES 

7 = 
P = 

3.9G25E+01 

2.298 7 E-01 

TI = 

9.0979E-01 




XSUM = 
OFLON = 
TNALL = 

7.0353F40? 
4.5*75^-01 
4 • 90 05€ 40 2 

PTU/HR 
OEr, r 

OSUH - 
XS = 
MG AS - 

9.1749F-0? 
7 * 33 0 3F-Q 1 
3.53035-06 

HASSFLON = 
TWICK = 

LB-HOLFS 

•6.1100E-0S LB/HR 
4.903 8E *02 REG P 


J - 

165 

TIN = 

1* 2073F + 01 

INCHES 

7 - 

4 • 1 375F+0 1 





1 31 11 -6054-R0-00 



C-24 




V - 

li3115F-(J2 


P = 

2.7617E-01 

TI = 

9.1823F-01 




XSIJM “ 
OFLOW - 
TWALL = 

7. 0501F*0? 
8.?5f4F-0i 
4.943SE+02 

PTU/H9 
OEG 9 

n sum = 
xs = 

MGAS = 

1 .5513E-Q1 
7.51 29E-01 
3.5377F-QF 

MASSFLOW = 
THICK = 

lb-nolfs 

1.3089E-04 
4. 9493E »D 2 

L9/HP 
OEG P 

J = 

171 

7IN - 
V = 

i.?6nr*oi 
2.8 17GF-02 

INCHES 

T = 

P = 

4 ■ 2 875E + 0 1 
3 • 50 2Fr- o t 

TI = 

9.3032^-01 




XSUH = 

oflow = 
thall = 

7.0M «E + 0? 
1.3616F+00 
S. 0f> c 0F»0? 

PTU/HR 
OFG R 

OSUM = 

xs = 

MO AS = 

2 . 7 ?31 E-0 1 
6.890RF-01 
3.543FE-0B 

MASSFLOW - 
THICK = 

LO-MOLCS 

2.812i)E-94 

5.0144F+02 

LB/HP 
OEG « 

J = 

178 

71* * 
V - 

1 .3021E+01 
8.6A56F-0’ 

INCHES 

7 = 
P * 

4.462EF*01 

F.1122E-01 

TI - 

9. 5328E-D 1 




XSU" = 
OFLOW = 

tmALL - 

7.0734F*!? 

5.i?ibefo2 

9TIJ/HR 
DEG R 

OSUM = 
XS - 
MG AS = 

4.85RFF-01 

5.3328F-01 

3.5494F-06 

MASSFLOW = 

THICK = 

L8-M0LES 

8 • 6682E -04 
5. 1382E+02 

L8/HR 
DEG R 

J = 

185 

7TN = 
V = 

1.3531F +91 
4.1771F-01 

INCHED 

• 7 - 

P = 

4.6375E*0i 

1.5fi?3E*0Q 

TI = 

9 . 8580F-0 1 




xsu* - 

OFLOW = 
TWALL = 

7.rtAATF«.|)? 

4.2623E+08 

5.?8*1F*0? 

PTU/HR 
OFG R 

OSUM = 
XS - 
MG AS = 

8.5746F-Q 1 

1.9R9FF-01 

3.5S29F-04 

MASSFLOW = 
TWICK = 

LB-MOLES 

4. 1G88E-03 
9» 3134E *02 

L9/MP 
OEG P 

J = 

197 

TIN = 
V - 

1. 4008E+01 
1.3D47F+0P 

INCHES 

7 = 

P = 

4.8000E+01 

5.4091E+00 

TI = 

9.9972E-01 




XSU" = 
OFLOW = 
THALL = 

7.081 4F *0 ? 
6.E41 3F + 00 
e.ssp^f+o? 

0TU/H9 
OEG R 

OSUM = 

XS = 
MG AS = 

i 4 3 2fV*F *01 

4.3337E-C3 

3.5535E-0* 

MASSFLOW = 
THICK = 

LB-HOLES 

1.3021E-02 

S.388SE+02 

L9/HP 
DEG P 

J “ 

207 

7TN = 
V » 

1.451F C +01 
1 .8675F*00 

INCHES 

7 - 
P s 

4.9750E+01 

1.288SE+01 

TI c 

1.0000E + 00. 




XSUH = 
OFLOW = 
TVIALL = 

7,0Rli*F«-0? 

9.33FOF+00 

5.3F78E«-0? 

PTU/HR 
OFG P 

OSUM = 
XS - 
MG AS = 

1 .8G7DF+0Q 
?. 453SE-06 
3.5535 r -0B 

massflow = 
THICK = 

LR-NOLES 

1_ ■ 8ft37F — 0^ 
5.39Q0E+02 

LB/HR 
OEG R 

J = 

214 

TIN = 
V * 

i.5"27F+01 

?.4t)*FFfO0 

INCHES 

7 - 
P = 

S.15(inE+01 

2.2908F+01 

TI = 

1.0000E*00 




XSUH = 
OFLOW - 
THALL = 

7.0314E»-0? 
1 . 703 OF ♦ 0 1 
5. 3B78F+0? 

PTU/HR 

peg r 

OSUM = 
XS - 
MG AS = 

2 . 406DE* 0 8 
1.0894E-10 
3»5F3 C ’F-CI C ‘ 

MASSFLOW = 
TWICK = 

LB-MOLES 

2. 4017F-0? 
5.3900E+02 

Lo/HK 

OEG 9 

J = 

221 

TIN = 

1.5S37Ff01 

INCHES 

7 = 

5.3?50E*01 



... 


13111 -6054 -R0-00 



t 



V = 

?. 94*5^400 


P = 

3.5458F*01 

T I = 

1.0000E+00 





XSUM = 

7. 0 SI 


OSUM = 

2 • 945 OF + 00 

MASSFLOW = 

7.9396F-D? 

LB/HP 




OFLOW r 

i .«*7?^f*<n 

9TU/HP 

XS = 

0. 

TWTCK = 

5.3900E402 

OFG R 




TWALl - 

S.397«eM)? 

HFG P 

MGAS * 

3.5535F-0F 

L9-HOLFS 



c 


??8 

7TN - 

1.604«E*01 

INCHES 

7 = 

5.5000E+01 




1 



M = 

3.**«4 t >F + 0f 


P - 

*. 0535*>0i 

II = 

1.0000C+00 





xsu* - 

7. QH14F40? 


OS'JN = 

3.484 OF* 0 0 

MASSPLOH = 

3 • 4779E-0 2 

LB/HR 




O p LOH = 

1.74?0r + ?n 

HTU/HR 

XS •= 

0. 

TWICK = 

5.3900Ef02 

OEG R 




TWALL - 

5.7578^48? 

nrn p 

MGAS = 

3.5G3SE-CG 

LB-MOLES 



r~ 

j 


235 

7TN = 

t.F559FOi 

TNCHFS 

7 = 

5.675flE*01 







V = 

C..Q23EE *00 


P = 

F • 8 14?F*G 1 

TI - 

1.0000C*00 





xsu^ - 

7. 0B14 C MJ? 


OSUM “ 

4.0230^+00 

MASSFLOW = 

4 • 0 1SSE-0 2 

LB/HP 




OPLOW = 

P.OllSF^'U 

PTU/H9 

xs = 

0. 

THICK - 

5.3900E+0? 

OEG R 




TWALL = 

5 « 3 *7 8F f 0 ? 

OFF 9 

MGAS - 

3.553FF-0F 

L9-HOLES 



r 

j 


742 

7TK' = 

i.7oe9R*oi 

INCHES 

7 = 

5.9500F+01 







V = 

4.5G2S F4t30 


n = 

8.S27EE+01 

TI = 

1.0000E+00 





XS1.1M = 

7. 0 0,1 4E*f>? 


OSUH = 

4.55205+00 

MASSFLOW - 

4.S534F-02 

LB/HR 




OFLOW = 

?.28inF+oi 

FTU/HR 

xs - 

0* 

THICK = 

S.3900F^02 

OEG R 




TWALL = 

9* 7 ^7^r 4 ri2 

OFF R 

MHAS = 

3.553GF-0F 

LB-MOLHS 



r 


248 

7XN * 

i.7Fr)7F 4 ni 

TNCH^F 

7 = 

B.OOOOF+Ol 







V = 

5.o?4ff*op 


P = 

i.O755E+0? 

TI = 

1.0000E+00 





YSU* - 

7.9A14F*r)7 


Q SUM = 

9 • 0 ^4 OF^O 0 

MASSFLOW = 

5 * 0145F-02 

LB/HR 




OFLQW - 

?«Fl?0Ffni 

n T tj / H R 

xs = 

0. 

TWICK = 

5.3900E+02 

DEG P 




thall = 

5 , 7F7^f + 1 )? 

HFG P 

MG AS = 

?,5S3SE-0* 

LB-MOLES 



i — 

j 


?55 

7 T* = 

l.annooi 

INCHES 

7 - 

F. 175 OF + 0 1 




i 



V = 

S.SG^SE+DO 


o - 

1 • 3237F * 0 2 

TI = 

1. OOOOE^OO 


1 

— 


xsu* = 

7.im'.F*o? 


OSUM = 

5.5630E400 

HftSSFtOM = 

5.5524E-07 

LB/HP 




OFLOW = 

2, r h i =;=■ -*-ts i 

°TU/HR 

XS = 

0. 

THICK = 

5.3900E+02 

DEG P 




T WALL = 

<;.3F7«« r +a7 

HFr, p 

mga c = 

3.5535F-06 

LH-HOLFS 



J 


2B2 

7 TN = 

i.a«5?8f»oi 

INCHES 

7 = 

f .3SOOE*Oi 







V = 

6.io?Fr+on 


P = 

1.5973P»02 

TI = 

1.0000E+00 





XSUM = 

7.0*1 4F*92 


QSUM = 

5.10205+00 

MASSFLOW - 

6.0903E-02 

LB/HP 




OFLOW = 

3.0510^31 

OTU'HP 

XS - 

0 4 

TWICK = 

5.3900E+02 

DEG R 




TWALL = 

5.7578F+9? 

o^g p 

HGAS = 

3.5539F-0F 

LB-MOLES 



i 

J 

= 

2*9 

7TK - 

1. 907^ + 01 

INCHES 

7 = 

6.57S0F+01 



^ 


13111 -60 54-R0-00 



C-26 





V - 

6.F415F400 


P = 

1.8961E+02 

TI a 

1.0000E400 



-■ 


XSU* = 

7.0814F*0? 


OSUM = 

6.6410E+00 

MASSFLOM a 

6, 6282E-Q2 

LB/HR 




OFLOM = 

3.3?0*iF*01 

9TU/HR 

XS = 

0. 

THICK = 

5. 3BOOE+02 

OEG R 




THALL = 

5.3S78F+9? 

OEG P 

MGAS = 

3.5536E-06 

LB-HOLFS 



J 


276 

7IN a 

1.955 OF + Di 

INCHFS 

7 = 

6.7O0OE+O1 







V a 

7. 1805E400 


P a 

2,228 3E*02 

TI a 

t.0009E*00 


1 ' ' " 

““ 


XSUH = 

7 • 0 81 4F *0 ? 


OSUM a 

7. 180 OF *00 

MASSFLOM = 

7 . 1662E-02 

LB/HR 




OFLOM = 

3 • 590 OF + 0 1 

RTU/HR 

XS a 

0. 

THICK a 

5. 3900E+02 

OEG P 




TH8LL = 

5.3578E402 

OEG » 

NG AS = 

3.5S3SF-06 

LB-MOLFS 



J 

7 

283 

7IN a 

2. 0068E+01 

INCHES 

7 a 

6* 875 GF+0 1 







V = 

7 • 7 195E + 0 0 


P a 

2.56B7E*02 

TI a 

1* 0008E*00 





XSUH = 

7. OM4E*0? 


QSUM = 

7* 719 0E*O 0 

MASSFLOM = 

7.7041E-02 

LB/Hft 




OFLOM a 

3.«5O?Ff0l 

RTU/HR 

XS a 

0. 

THICK a 

5.3000E+02 

OEG ff 




tmall = 

5.3578E*0? 

OEG F 

MGAS = 

3.5535F-0S 

LB-MOLES 



J 


290 

7IN a 

2.0571F+01 

INCHES 

7 a 

7.0500E+01 


t 





V = 

8* 2585E *00 


P a 

2.9443F+02 

TI * 

1. 0000E»00 


'■ 



XSUM = 

7.0814E+02 


OSUM = 

8.2580E+00 

MASSFLOM = 

8.2428E-D2 

LB/MR 




OFLOM = 

4.12R0E+01 

9TU/HF 

XS = 

0* 

THICK = 

5.3900EA02 

OEG ft 




tmall = 

S.3*?78F*02 

OEg r 

MG AS = 

3.5535E-06 

LB-MOLES 



J 


296 

7 IN = 

2.1008E+01 

INCHFS 

7 a 

7.2000E+01 







V - 

8.72OSF+00 


P a 

3.2856E*02 

TI * 

1* OOOOE^OO 


— 



XSUH = 

7.0MkE+fl? 


OSUH a 

8* 720 OF* 0 0 

MASSFLOM a 

$* 7031E-Q 2 

LB/HR 




OFLOM = 

I* . 3600F4-0 1 

BTU/HR 

XS = 

0. 

THICK = 

5.3900E402 

DEG R 




TMALL = 

5.3S78F+02 

OEG ft 

MG AS = 

3# 5*>35F- 06 

LB-MOLES 



J 

7 

303 

7TH = 

2.151BF*01 

INCHES 

7 a 

7.1750E+01 







V a 

9* 2595F + 0Q 


P a 

3.7072E+02 

TI a 

1.0000E»00 


— 

— _ 


XSUM a 

7 . 0 Si 4F4-02 


OSUM a 

9.2590E400 

MASSFLOM a 

9* 2410E-02 

LB/HR 




OFLOM a 

4,620*^ + 01 

BTU/HR 

XS = 

0. 

THICK = 

5.3900E402 

OEG R 




TWALL = 

5.3S78E+0? 

nrr, r 

MG AS = 

3.5535F-06 

LB-HOLES 



J 


310 

7TN = 

2.2039E*01 

INCHES 

2 a 

7.S500E+01 







V a 

9.7B85e*00 


P a 

4.1S4iE*02 

TI a 

1.0800E+00 


— 

— 


xsum = 

7 • 0 814F*0 2 


OSUM = 

9 m 798 OF* 0 0 

MASSFLOM = 

S.7790E-02 

LB/MR 




OFLOM = 

4.899nF+01 

ETU/HR 

XS = 

0. 

THICK = 

5. 3900E*02 

OEG R 




TMALL = 

5 « TF78F + H ? 

npr, R 

MG AS = 

3.553*^-06 

LB-MOLES 



J 


317 

7TN - 

2.2540E+01 

INCHES 

7 = 

7*725 0E + 0 1 





1 31 1 1-6054-R0-00 



C-27 


f 

u 

'* t ■ . 

/ / ' 
i-J v.> 

IT) J7 

• ; y ?*+ jrr ~ * r ^ 

- ^ 's' * ntiirs'»F*fti 


P - 

4.6263E*02 

TXJL- 

1.0000E+00 





XSUH = 
OFLOH - 
THAI L = 

7-0814E+02 
5 • 16B5E+D1 
5.3578E+02 

BTU/HR 
OEG R 

QSUM = 
XS = 
HG AS = 

1 9 0 337E + 0 1 
0* 

3*5535E-06 

MASSFLOH - 
THICK = 

LB-MOLES 

1 « 0317E-0 1 
5.3000E+02 

LB/HR 
OEG R 


4 * 


2tH « 
V * 

2.3851E+81 

1.8877f*01 

INCHES 

2 * 

P * 

7.9000E*01 

5.1238E+02 

TI = 

1* QOOOE^OO 





XSUN = 
OFLOH = 
THAU. = 

7.0814E*82 

5.4380E+01 

5.3578E+0? 

BTU/HR 
DEG P 

OSUM = 
XS = 
MGAS = 

1 • 0 876E + 0 1 

0. 

3.5535E-05 

MASSFLOH = 
THICK = 

lb-molfs 

1. 0855E-0 1 
5.3900E*02 

LB/HP 
DEG R 


F 

331 

2TN = 
V * 

2.3562E+81 
1. 1416E*61 

INCHES 

1 * 

P * 

8.0758E+01 

5.5465E»82 

TI = 

1.0000E400 





XSUH = 
OFLOH = 
THALL = 

7. 0814E+02 
5.7075E+01 
5.3578E+02 

BTU/HR 
OEG R 

OSUM = 
XS = 
MGAS = 

1.1415F*01 

0 . 

3.5535E-06 

MASSFLOH = 
THICK = 

LB-MOLES 

1 • 1 393 E-0 1 
5.3900E+02 

LB/HR 
OEG R 


F 

33ft 

TIN * 
V * 

2.4872E+81 

1.1955E+81 

INCHES 

2 * 
P = 

ft • 2500E + 0 1 
6*1B45E*Q2 

TI = 

i-ooooELoa 





XSUN = 
OFLOH = 
TNALL * 

7.0814E+02 

5.9770E+01 

5.3578E+02 

BTU/HR 
OEG R 

QSUM = 
XS = 
MGAS = 

1# 1 954E+01 

0 . 

3.5535E-06 

MASSFLOH = 
THICK = 

LB-MOLES 

1. 1931E-01 
5.3900E+02 

LB/HR 
OEG R 


E 

3%% 

T1H * 
V * 

2.4518E+01 

1«2417E*81 

INCHES 

2 * 
P = 

8.4000E*01 

6.G844EI-02 

TI = 

1. Q000E+80 





XSUH = 
OFLOH - 
THALL = 

7*Cftl%E+02 

6.20B0E+01 

5*357ftE+02 

BTU/HR 
OEG R 

OSUH = 
XS = 
HGAS = 

1.2416E+01 

0 • 

3*5535F-06 

MASSFLOH = 
THICK * 

LB-MOLES 

1.2392E-01 
5. 3900E+U2 

LB/HR 
OEG R 


F 

351 

HH * 
V * 

2.5020E*8i 

1.2BS6E*01 

INCHES 

2 * 
P ® 

8*575 0E*01 
7.2793EL02 

TI = 

1.0000E400 



L-i 


XSUH = 
OFLOH - 
THALL = 

7.0 814E+0? 
6* %775E *01 
G.3G78E+02 

8TU/HR 
DEG R 

QSUM = 
XS - 
MGAS = 

1*2955E«-01 

0* 

3 * 5535F-06 

MASSFLOH = 
THICK = 

LB-MOLES 

1. 2930E-Q1 
5.3900E+02 

LB/HR 
OEG R 


4 * 

35ft 

tin * 

V 9 

?*5531ELfti 

i*3%^5F*ftl 

TMCHES 

2 9 

P - 

8.7500E*01 

7.899EE+02 

TI = 

1* OOOOE+OO 





XSUN = 
OFLOH = 
THALL = 

7.0814E+82 
6.7470E+01 
5. 3578E *02 

BTU/HR 
OEG R 


1 • 3494E+0 1 
0. 

3 # 5535E- 06 

MASSFLOH = 
THICK = 

LB-MOLES 

1.3468E-01 

5.3900E+02 

lb/hr 

OEG R 


4 * 

365 

21* * 

2*60%?Em 

IMCHES 

2 = 

8.9250£*01 





i , — 


1 31 11 -6054-R0-00 


C-28 





l 7* * 7 

c V 


1.4034F4&1 


P * 

8.5*516402 

TI = 

1* 0O00E400 





XSUM 

— 

7.081AE402 


OSUM = 

l.*033E401 

MASSFLOH = 

1. *0056-01 

L9/H9 




OFLOW 

- 

7*0 165E *0 1 

BTU/HR 

xs = 

0* 

THICK = 

5.3900E402 

DEG R 




TMALL 

2 

5.3578F402 

DEG R 

MGAS - 

3.5535E-06 

LB-MOLES 



J 

2 

37? 

7IN 


?.65?0f401 

INCHES 

t - 

9 • 0 669E + 0 1 







V 

X 

1.4538E+01 


P = 

9.1727E402 

TI = 

1. OOOOE+OO 





XSUM 

= 

7 • 0614F+07 


OSUH s 

1 • 453 8F>0 1 

MASSFLOH - 

1.4509F-01 

L9/HR 




OFLOM 

r 

7.769OE401 

BTU/HP 

xs - 

0. 

THICK = 

5 • 390 OE 40 2 

DEG R 




TMALL 

= 

5.3573E+02 

BEG R 

HG AS = 

3 * 5535E-0G 

LB-MOLES 



[7 

M 

373 

tin 

= 

2.6593E401 

INCHES 

7 = 

9.1139E401 




L 



V 

2 

l.*538E401 


P * 

9.770 IE *02 

TI = 

1. 00006400 





XSUM 

- 

7*0 81 4E402 


OSUM s 

1 *4536*401 

MASSELOH s 

1 • 4509E-0 1 

LB/HR 




OFtOW 

2 

7 . 2690E401 

*TU/HR 

xs = 

0. 

TWTCK = 

5* 390 OF 40 ? 

DEG R 




tnall 

= 

5.3900F40? 

OEG R 

MGAS = 

3.5535E-06 

LB-MOLES 



J 

2 

379 

7TN 

_ 

2.7O31F401 

INCHES 

1 " 

9.2639E401 







V 

2 

1.4538E401 


P = 

9.85*56402 

TI * 

1. OOOOE4O0 





5(SU W 

2 

7 • 0 61 4F40? 


QSUM = 

1 . 4*5 3 6F* 0 1 

MASSELOH = 

1 • 45 09E-0 1 

LB/HR 




GFLOW 

2 

7.2690F401 

BTU/HR 

xs = 

0- 

THICK * 

5*3900E40? 

DEG R 




thall 

2 

5.3900*402 

OEG R 

MGAS = 

3*553 5F -05 

LB-MOLES 



*1 

2 

366 

7IN 

2 

2.75*16401 

INCHES 

z * 

9*4369E401 







V 

2 

l.*53«E401 


p - 

1.0536E403 

TI = 

1* 0000*400 





XSUM 

= 

"T7TftT*fToF 


QSUH = 

1.4536E401 

MASSFLOM = 

1. *5096-01 

LB/HR 




QFLOH 

= 

7.26906401 

BTU/HR 

XS = 

0. 

THICK = 

5,39006402 

OEG R 




thall 

2 

5 . 390 OF + 02 

OEG R 

MGAS = 

3 * 5535F- 0 5 

L9-M0LFS 



J 

2 

393 

7IN 

_ 

2.80526401 

INCHES 

2 * 

9 . 6139F+ 0 1 







V 

9 

1. *5356401 


P = 

1 * 1 21 8E+ 0 3 

TI r 

1 * 0 0 OOE 4 0 0 





XSUM 

= 

7.06J4F*0? 


QSUH = 

1.4536E401 

massfloh - 

1. *5096-01 

LB/HR 




OFLOM 

2 

7.269OE401 

BTU/HR 

XS = 

0. 

THICK = 

5.3900E402 

DEG R 




THALL 

= 

5.3900E40? 

OEG R 

MGAS = 

3 • 5535E-05 

LB-MOLES 



z 

2 

*00 

ZIN 

_ 

2.85626401 

INCHES 

Z - 

9.7669E401 




l 



V 

2 

1. *5386401 


P - 

1.1900F403 

TI = 

1. 0O00E4O0 





XSUM 

2 

7.081 *E*0 2 


QSUM * 

1.4538F401 

MASSFLOH = 

l.*509E-(fl 

LB/HR 




OFLOM 

- 

7.26N0F401 

BTU/HR 

xs - 

0. 

THICK = 

5.39006402 

DEG R 




TMALL 

= 

5.39006402 

DEG R 

MGAS = 

3 « 553 5E-05 

LB-MOLES 



E 

= 

*06 

ZIN 

2 

2.90006401 

INCHES 

7 « 

9.93S9E401 





00-0y-t?S09-Lll£L 



V 5 1 .4G3flF*0t p= 1.2484E*03 TI- l.OOOOE + OO 

yS'.JM = 7.0814Ftfl? OSUH = 1.4S38F+01 HASSFLOH s 1.4509E-01 LB/HR 

OFL0W = 7.2fionF + 01 STU/H9 XS = 0. THICK = S.3900Et02 OEG P 

THM 1 = 5.39P0F+G? OEG p MG AS = 3«5535P-Q5 LB-MOLFS __ - - — 

J = 413 . ?TN = ? . 9511F + 0 1 INCHES 1 ~ 1.0114E+02 

V = i, 4 < 5 T 4 Fi-ni p - 1.3166E*03 TI - 1, OOOOE+'OO 

XSUM = 7. 0814F +0? OSUM - 1.4538E*01 HASSFLOH = 1.4509E-01 LB/HP 

OFLOW = 7.269nr+01 PTU/HR XS = 0. THICK = 5.3900E+B2 DEG R 

TUMI = S.ISOflFtO? CFG P MG AS = 3.5S35E-0G LB-MOLES 

!j.» 420 n*t = 3. 03?l c + 0t INCHES 7 = 1.02B9F+02 

v s l.4S3*F*01 P - 1.3848E+03 II ~ 1« 00Q0E»00 

7.0 81 4 f*o'? OSUM * 1.4S38F + 01 HASSFLOH - 1.4509E-01 LB/HR 

OFLOH = 7. ?G Q OF+0 1 PTU/HP XS = 0. THICK - 5.3900E+02 OEG R 

TMfttL - S.7°O0F*07 CFG R MG AS = 3.5S3SE-06 LB-MOLES 

jj = 422 7TN = 3.0120F+01 INCHES 7 = 1.0323E+02 a.aac.ia 

V s 1.453flF»0i P = 1.398GF*03 TI = 1 . 0 0 0.0 E ♦ 0 0 

1 , SU h" t.CM^II? ~ OSUM = 1.4S3 8F + 01 HASSFLOH = 1.4509E-01 LB/HP 

OFLOH = 7 . ?C9 0 C + 01 RTU/HR XS - 0. THICK = 5.3900Ef02 OEG P 

TMALL = 5.3GOOF+0? O^G P MGAS = 3.6?35F-0F> LB-HOLES 

GAS IN ONE 07 STEP OF GAS-BLOCKEO CONOENSEP 1 = 1.56471E-09 L9-M0LES 

POHER LCST BY OKF 07 STEP OF FULL-ON CONOENSER 1 = 3.91387E-01 BTU/HR 

TOTAL GAS I* PIPE AND orS^PVQtP = 3.563*«GE-ftG LP-MOLES _ . 

i 

TOTAL PCHEP LOST BY CONDENSERS r 7.2B895E*01 8TU/HR 


: : 

1 — 

... — ■ 


13111-6054-R0-00 



